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Banes: Badarsoft 


| Een apartment krijgt u afgedrukt wat u ziet. Com- 
geheel Nederlands programma met uitstekende municeren met andere computers doet u via het 
ed Binnen | ( Link-apartment. Met DOS-tools voert u 
it staan alle activiteiten in n apartments. DOS commando’s direct uit. Weet u het 
Start met het programma en alle apart- even niet? Dan leidt de ‘assistent’ u 
ments staan overzichtelijk op uw scherm. re stapsgewijs in uw eigen tempo door het 
Met één klik op de muis of toetsenbord programma. Alle gegevens zijn uitwissel- 
gaat u ‘n apartment binnen. Apartments 
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zijn willekeurig te vullen met modules die voor Nederlandstalige handleiding heeft R 
een bepaalde activiteit nodig zijn, zoals een een helpdesk. Even bellen en u krijgt antwoord. 
adresapartment die de word- data- en printmo- Wilt u alle mogelijkheden van deze 

dules bevat. Zelf vormgeven doet u met de DTP/ bestseller zien. Ga dan langs uw dealer 
tekenmodule. Zelfs plaatjes inlezen vanaf de voor ‘n uitgebreide demonstratie. 











scanner is geen probleem. Met het printer- 
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DYNAMIC ENVIRONMENT: DE WINST VAN EEN TEVREDEN KLANT 


baar met de andere apartments. Naast de 
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GEEN LASER AFDRUK 
MAAKT MEER INDRUK: 


LASERPRINTERS 





De ene laserprinter is de 
andere niet. Dat merkt u met de 
Mita laserprinters. Die kunt u, door 
hun compacte verschijning, makke- 
lijk overal kwijt zonder verbouwing. 
Die laten zich moeiteloos koppelen 
aan praktisch elke computer. Die zijn 
niet na 2.000 pagina's al door 
hun toner heen, maar pas na 10.000! 
Die geven minimaal 8 puntgave af- 
drukken (300 dpi) binnen de minuut. 
En dat allemaal in een afdruk- 
kwaliteit die u niet van drukwerk zult 
kunnen onderscheiden. 

Een kwestie van superieure 
technologie en absoluut geen kwes- 
tie van prijs. Want bij Mita laser- 
printers betaalt u niets extra voor top- 
kwaliteit, uitzonderlijk bedieningsge- 
mak en méér mogelijkheden. 
Kortom: geen laser afdruk maakt 
méér indruk dan een Mita laser 
afdruk. 


VOOR ALLE DUIDELIJKHEID 

Er is een groot verschil tussen 
gewone laserprinters en Mita 
laserprinters; Mita laserprinters zijn 
duidelijk de betere. 


| BON VOOR 

| INDRUKWEKKENDE 

| LASERPRINTER 

| AFDRUKKEN PB21/6 


JA, geef mij complete informatie over 
Mita laserprinters. 


Naam: 


Functie: 


Bedrijf: 





Adres: 





Postcode: 


Plaats: 


Tel.: 


í Uw vakhandelaar: 


Vul in en stuur op in een envelop zonder 
I postzegel naar: Remidex Nederland BV, 

Antwoordnummer 136, 1500 VB Zaandam. 
| Tel. (075) 515 615. Fax. ie 1515725 


ZAANDAM 


hs hrodnmnendiesetdinnsden: aei oe dek ie P  in hennnendnn  n Eh kca” ze Sea innn ner kenen dea ne waka ns. hhh he nd alah a bi Se ie ae en ar ik dn EP teek nn nc tineke ae 5 ERD IN CE a ET IE De EE NE Cane MN AEN, 5 


Bandiet: isdn? 
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in BELGIE is alles verkrijgbaar bij: 
HET COMPUTERWINKELTJE MECHELEN 
M Sabbestraat 39, B-2800 Mechelen 
tel: 015-20 66 45 fax: 015-20 73 32 





EN enn Zenne Sn EeS Ennn eeunte neen annnnnnn ennn nnnnsnannsnntntennssnnnsnnsnnnnensnenn0neenE nnn 
EEE HET COMPUTERWINKELTJE BRUGGE 
enen ee 
COMPUTERBOEKEN Top 30 Juni 1991 Nieuw binnengekomen (*) en actuele boeken 
Basishandleiding WordPerfect 5.l sees 15 DOS, OS/2, Windows Databases, Spreadsheets 


Werken met WordPerfect 5.l (Boeke) «… 69 QuickStart MS-DOS 5,0 essseevee 29 “BASE IV Handboek - versie l.l 85 
Leidraad DrawPerfect l.l sssessveeee 12,95 kWerken met DR DOS 5,0 sscscceee 49 kWerken met Clipper 5,0 deel 1 89 
KCLIPPER 5,0 — SYBEX Professioneel «…… 99 kWerken met Windows 3 .esseee 64,50 “Clipper Compleet 5,01 seseee 79,50 
Handleiding DOS 4,01 (Oets) sssvesvvee 49 “Het Kleine Windows 3 Boek …… 29,50 “Using Clarion Professional „…… 69 
“Clipper Programming Guide, 2nd 5,0 … 79 kWindows 3,0/SYBEX Professioneel 69 *Running Excel 3,0 seseeseseese 69 


Basishandleiding Lotus 1-2-3 2,2 en 3 15 Power of PenPoint .essvcevcoee 59 *Werken met R:BASE 3,l seoseeve 69 
Basishandleiding DOS & Hard Disk „……… 15 kMastering Quattro PRO 3 „esse 65 
Leidraad DOS 4,0 .sesscssevvvvcvoeen 12,95 Programmeertalen 

WordPerfect 5.1 Gebruikersboek (Veen) 65 TSR Programma's onder DOS „… 59,50 CAD 


BASIC PowerTools sssssceesvees 119 kAutoCAD 11 Handboek 2D tekenen 59 
Werken met Windows 3,0 NL sssvevsvcceoe 69 kAdvanced BASIC — PDS and Quick. 99 *Maximizing AutoCAD II: AutoLISP 89 


Clipper 5,0 Developers Library + disk 99 QuickBASIC Toolbox ssssevseeve 99 kGeneric CADD 5,0 Inside & Out 69 
Het Complete DOS 4,0 Boek seessseessee 69 *Using Borland C++ sececseceseseeee 79 
Basiscursus WordPerfect 5.l NL .eee 29,50 Encyclopedia C for MS-C 6,0 … 79 WordProcessors, DTP 


Werken met WordPerfect 5.l NL (QUE) 99,50 #T-Pascal 6,0 Programmeergids 59,50 “Using LetterPerfect sessseveve 59 
Het Grote LARRY Boek sssssseevvvovee 29,50 kMastering Turbo Pascal 6 ...…… 69 *WordPerfect Del Cookbook +disk 69 
“Basishandleiding Windows 3 ssscccseee 15 “Microsoft WordBasic Primer „ee 65 
“Basishandleiding WordPerfect Gevorderd 15 Amiga, Macintosh “Mastering PageMaker 4 IBM PC ‚ 59 
*Hintbook King's Quest V ssssssveeveee 29 kAmigaWorld AmigaDOS 2,0 Compees 65 Praktijkboek Ventura 3,0 sevee 49 
kResEdit Complete — incl ResEdit 2,1 79 kAmiga Bridgeboard Buch ssssees 69 *Using Ventura 3,0 GEM & Windows 79 
“Microsoft Excel 3 Mac Companion 79 
Tekenen met Dr.Halo/Dr.Genius see 22,50 System 7 Book ssssssscevvveeee 65 Graphics, Utilities, diversen 
Gids voor Microsoft Works 2,0 NL .… 59,50 kQuarkXPress Book ssssssesvevee 69 kHintbook Space Quest IV .eeeee 25 


kUndocumented DOS „ssssessesvveveevveee 99 Macintosh Pascal Programming kLeren vliegen Flightsimulator 4 38 
Leidraad PC Tools 6 sesssscvevvveen 12,95 Primer I - Using THINK Pascal 69 “Official Book of King's Quest 39 
Programming Windows 3 „sssecevesvvene 79 kInside Corel DRAW 2,0 ssseceee 69 
Werken met PC Tools Deluxe 6,0 ssesee 69 PC kWerken met DrawPerfect l,l .…… 49 
Using Clipper, 2nd Ed - through 5,0 « 69 Fix your own PC „sesssceveveee 65 “PC Magazine Guide Connectivity 99 
Grote MS-Flightsimulator 3/4 boek 49,90 Progr Guide to EGA/VGA/SuperVGA 79 Master SimCity/SimEarth .sseee 59 
Basiscursus MS-DOS sssseseesceevoovee 29,50 PC Reparatiegids ssssscsvvsvsee 34 Using Carbon Copy PLUS sseesvee 59 
Starten met MS-DOS/PC-DOS ssseseeevee 35 *PC-Hardware — assemblage «…… 42,50 *Snelcursus Norton Utilities 5 29 


NIEUW BINNENGEKOMEN (*) EN ACTUELE SOFTWARE (inclusief BIW) 


Amiga beehekedededeekekede dekkende PC toepassingen (incl BTW): PC talen (incl BTW): 

Disney AnimationStudio 369 MS-DOS 5,0 International *3D Construction Kit „… 179 GFA BASIC fuer MS-DOS „ 599 
*3D Construction Kit ‚… 179 UPDATE, 5,25" of 3,5" 199 askSam 5,0 esssesvcoee 99 KCodeBasett sescscvveve 859 
kAmigaViglon sesssvuser ZT  MRMRAANAKKERKARARR REKENEN ‘Ami Pro voor WindowsNL 1299 “Microsoft MASM 6,0 .…» 399 

Das Boot sessesssceoeee 99 Bannermania „eseseceeeee 89 “Borland C++ sscccceoee 799 

Centurion sesscceeonoe 89 PC SOFTWARE TOP 20 KHGE bel seevvcvvceveers 799 KTurboPascal for Windows 499 


*ChessMaster 2100 ‚.s.… 99 Flightassignment A,T,P,129 ‘ “Facelift for WordPerfect249 Microsoft C 6,0 .sssse 999 

*Chuck Yeager 2,0 .…es… 89 Aircraft&Scenery Design 99 “*GeoWorks Ensemble ‚……… 489 *SmallTalk/V Windows „… 1199 

kEye of the Beholder 99 Flightsimulator 4,0 ‚… 129 “Play it by Ear „essesee 289 kZortech C++ DatabaseLib 799 

kEuropean Superleague „ 89 EZCosmos 3,0 sssssevee 149 “Quattro PRO 3,0 oeseee 799 

kGOdS sseecesvvocecveee 89 Scenery Disk W‚. Europe 59 Sidekick 2,0 .vssvveee 199 PC muziek, geluid (inc BIW) : 

KHarpoon sscsccccveveee 99 Space Quest IV „sevees 129 *SuperCalc 5 sessveseev 469 Copyist DIP — score ed, 789 
LARRY I, II & III Pack 159 QEMM-386 5,12 „seceeee 219 VERTAAL! voor WP sseee 349 Sequencer Plus GOLD «… 599 
*MegaTraveller 1 sss. 99 Red Baron VGA (HD) .…… 129 kAdLib MCA card sessveeee à29 
kQuest for Glory II .‚… 129 Copy II PC 6,0 ssseses 99 PC utilities (incl BTW): 

kSecret of Monkey Island 89 SoundBlaster soundcard 489 Adobe Type Manager «…… 239 PC games (incl BTW) : 


“Switchblade II „esseee 89 Adobe PLUS Pack «eseee 469 kAdvanced Destroyer Sim, 89 
kWonderland ssssssvsvseee 99 Entertainm, Pk Windows 89 BeckerTools 2,0 Windows 289 *Bushbuck Charms, etc „… 139 

Norton Utiltities 5,0 299 Bitstream Facelift .…… 249 “Champion of the Ray «…… 89 
Mac “Microsoft GameShop .…… 99 “Central Point ANTIVIRUS 399 “Death Knights of Krynn 99 
kBattle Chess ..ssvsvvee 99 “King's Quest V sssosve 129 *Disklock PC seeveevvee 479 HElite Plus sessesaansnn JJ9 
*Studio/l „sesssevevove 299 AdLib Synthesizer Card 229 Entertainment Pack Win3 89 “European SuperLeague «… 89 
*Studio/8 version 2,0 . 599 “SimEarth „sscscecvvevee 139 FastLynx l.l sssesvsee 359 *F-29 Retaliator sssesee 119 


*Studio/32 „.esesvevveel499 Railroad Tycoon „.seee 119 FileApps for Windows « 299 “Heart of China VGA ss 139 
DR DOS 5,0 ssecececeeees 389 “Freedom of Press Light 239 kJetfighter EL vna e 139 


ST ChessMaster 2100 «eee 89 HiJaak 2,0 .sceeseeesesse 449 “Keys to Maramon eeeeseee 99 

HighSpeed Pascal l,l . 299 Silent Service II .……… 119 “Laptop UltraVision ……… 199 LARRY I,II & III Pack 159 
“3D Construction Kit „… 149 PC-Kwik PowerPak 2,0 « 299 “Lemmings sesssevesvvvee ÌÌ9 
kAdvanced Destroyer „…… 89 PC software voor Kinderen “PC TOOLS DELUXE 7.0 «… 379 “Lexi-Cross sssssvevveee 99 
ERI eare suavemswarvenne DD Donald's Alphabet Chase 69 XUPDATE PC TOOLS 7,0 .… 153 *Magic Candle Ì sesceee 99 
kLemmings sessccevveveooe 89 Goofy's Railway Express 69 *PrintQ 5,0 sesvsevveee 379 “MegaTraveller l ssssee 119 


*Secret of Monkey Island 89 Mickey's Runaway Zoo « 69 _*Publisher's Paintbrush 1099 MIG-29 Fulcrum sseesee 139 
kSupercars II ssssvsevee 89 Mickey's 123's sssvee 99 *ToolBook 1,5 f Windows 1099 kOperation Stealth VGA 99 
kWonderland ssessvseoee 95 Mickey's Colors&Shapes 99 Turbo EMS 6,0 ssesssee 259 Sorcerers get all girls 99 


be 


Winkel open van dinsdag t/m zaterdag tussen 10 en 5 (maandag gesloten) Vraag onze GRATIS ZOMERCATALOGUS aan! 

Alle prijzen zijn inclusief BTW — verzendkosten f 6,- per bestelling * We sturen hem GRATIS toe als je ons een 
* kaartje stuurt met je naam en adres, 

k Vermeld tevens: 'MS DOS SPECIAL" 


% 


% 


Amstel 312 (to. Carré) 1017 AP Amsterdam Fax (020) 226668 Postbank 44/5158 NMB 697915646 





prijswijzigingen voorbehouden — LET OP: ons faxnummer is nu 622 6668 dealer aanvragen welkom 
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Redactioneel 


Een nieuwe DOS Special met weer een geva- 
_rieerde inhoud. We hebben getracht in dit 
nummer de lijn aan te houden die we heb- 


ben uitgezet in de vorige DOS Special. Enke- 


‚le artikelen over Windows-programmeren, 
_object-georiënteerd programmeren en be- 
‚sprekingen van nieuwe produkten op het 

‚ vakgebied. 


Tevens een bespreking van de nieuwe Clip- 
per compiler versie 5.0 in dit nummer. Enke- 
le eigenschappen van deze compiler worden 
grondig behandeld, alsmede of de overstap 
de moeite waard is. 


We streven ernaar om elk nummer aandacht 
te besteden aan de wat minder bekende, zij 
het exotische programmeertalen. De object- 
georiënteerde talen Actor en Eiffel worden in 
dit nummer behandeld; de volgende keer 
zullen we Oberon en Modula-3 onder de 
loep nemen. Actor is een taal die gebruikt 
kan worden om Windows-applicaties te 
schrijven. Eiffel is een taal die gebruikt kan 
worden om programma’s te schrijven die 
een zeer hoge mate van software-betrouw- 
baarheid moeten hebben. 


De redactie heeft vorige maand de Program- 
mer’s Conference van Borland in San Francis- 
co bezocht. De indruk die we al hadden 

werd daar wederom bevestigd. Het Wind- 
ows en object-georiënteerde programmeren 
zit in de lift, en nieuwe produkten zoals Tur- 


‚bo Pascal for Windows bieden nieuwe moge- 
lijkheden op programmeergebied. Bij het 


spreken met de daar aanwezige program- 
meurs kregen we het idee dat men de Wind- 
ows-golf die nu over ons heen komt met de 
nodige scepsis bekijkt, maar dat men er wel 
erg geïnteresseerd in is. Het wachten voor de 
C- en C++programmeurs is natuurlijk op 
Borland C++ for Windows, maar de intro- 
ductie daarvan zal nog minstens tot oktober 
op zich laten wachten. Zodra er ook maar 
iets meer over deze compiler bekend is 
wordt dit uiteraard in de DOS Special ge- 
meld. Het grote voordeel is natuurlijk dat 
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Redactioneel 


deze versie Windows-hosted is, maar ook zal 


dan de ObjectWindows-library worden mee- 
geleverd die het programmeren van Wind- 
ows-applicaties een stuk eenvoudiger maakt. 
Deze is wel al voor Pascal-programmeurs be- 
schikbaar in Turbo Pascal for Windows. 


In de vorige DOS Special werd al een klein 


‚ overzicht gegeven van de nieuwste DOS-ver- 


sie. In dit nummer worden alle eigenschap- 
pen en nieuwe commando’s uitgebreider be- 
sproken. Het lijkt erop alsof Microsoft het ge- 
heugenprobleem van eerdere DOS-versies 
erkent. Met 5.0 is het mogelijk om device-dri- 
vers en DOS zelf ‘hoog’ te laden. Dit bete- 
kent dat het gebied tussen 640 en 1024kB ge- 
bruikt wordt om het vrije conventionele ge- 
heugen.te vergroten. Echt nieuw is het 
natuurlijk niet, DR DOS bevatte deze moge- 
lijkheid ook al. Microsoft is erin geslaagd om 
tot maar liefst 630kB conventioneel geheu- 
gen vrij te maken. 


De laatste processor die Intel op de markt 
heeft gebracht is de i486SX. Dit goedkopere 
type van de ‘echte’ 80486 ontbeert een inge- 
bouwde coprocessor en draait op een lagere 
kloksnelheid. Daardoor is de chip een stuk 
goedkoper; een ander voordeel van de 486 is 
een ingebouwde cache. Enkele computerfa- 
brikanten hebben al een model met de 
486SX, waaronder het Hollandse bedrijf 
Tulip. Op pagina 104 vindt u een beschrij- 
ving van deze processor. 


De redactie 











Inhoud 


Colofon 
DOS Special 3/91 


Uitgave: 

Sala Communications 
Postbus 43048 

1009 ZA Amsterdam 


Uitgever: 
ing. V. Sala 


Hoofdredacteur: 
Lb Sala 
Eindredactie: 

John Caspers, Wilbert 
Scheer 

Redactie: 

Sjoerd van Gelderen 
André van der Hoeven 
tel: 020-6228871 


Produktie: 

Jeroen Broekhuizen, 
Patricia Buenting, 
drs. Hein Zoete 


Aan dit nummer werk- 
ten mee: Jeannot Bos, 
Joost Burgering, John Cas- 
pers, Wiebe van Erkelens, 
Sjoerd van Gelderen, Eva 
Hilhorst (fotografie en 1l- 
lustraties), André van der 
Hoeven, Barry Lagerweij, 
H. Leeflang, Mike Lewis, 
Dennis ten Siethoff en an- 
deren. 


Abonnementen: 
Marjo Jansen 
tel.: 020 - 6248006 


Advertenties: 
V. Sala, H. Bia, B. Sala 
tel: 020-6273198 


Druk en zetwerk: 
NDB, Zoeterwoude 


Distributie: 
In Nederland: Betapress 
In België AMP, Brussel 


ODOS Special 

Alle rechten voorbehou- 
den. Listings zijn geen Pu- 
blie Domain software. 
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DOS 








DOS 5.0 21 


De nieuwste telg in de serie DOS-besturingssystemen is 
MS-DOS 5.0, waarvan in dit nummer een uitgebreide be- 
spreking. Onder andere worden de nieuwe commando's 
behandeld. 


Windows 








Programmeren in Windows, 32 


deel 2 


In de vorige DOS Special gaven we een inleiding in het 
Windows-programmeren in C. Op pagina 32 een ver- 
volg op dit artikel, waarin we ingaan op het ontwerpen 
van dialoogkaders, een zeer belangrijk onderdeel van 
Windows-programma's. 








Turbo Pascal for Windows 78 


Turbo Pascal voor Windows is de laatst uitgebrachte ver- 
sie van de Turbo Pascal compilers. Deze Windows-hos- 
ted compiler maakt het mogelijk om zonder de SDK 
Windows-applicaties te schrijven. 





Een dBase-viewer voor 82 


Windows 

Wanneer u in Windows zit en snel even een dBase-be- 
stand wilt bekijken, is dit programma een uitkomst. De 
source-code is in C en gaat vergezeld van een korte uit- 


leg. 


Cen C++ 


Do What I Mean utility 37 


Het steeds intypen van ingewikkelde bestands- of direc- 
torynamen behoort tot het verleden. Het DWIM pro- 
gramma dat permanent in het geheugen resideert, vult 
onvolledige namen op de command-line automatisch 
aan. 








Abstracte datatypen in C++ 28 


De naam zegt het al: abstracte datatypen kunnen uitste- 
kend in C++ worden geïmplementeerd, dat immers 
data-abstractie in hoge mate ondersteunt. De classes la- 
ten zien hoe de bekende gelinkte lijsten kunnen worden 
geschreven, en hoe deze bestaande code opnieuw kan 
worden gebruikt om nieuwe en generieke datatypen te 
ontwerpen. 


Printen 








Het manipuleren van de 98 


printer queue 

Het is niet zo bekend dat ook vanuit gebruiksprogram- 
ma’s met het PRINT.COM-programma van DOS gecom- 
municeerd kan worden. De sources die gegeven worden 
bieden deze mogelijkheden, en zelfs enkele meer dan 
het PRINT-commando zelf. 





PostScript 94 


De PostScript opmaaktaal is hard op weg een standaard 
te worden, en we zullen in de toekomst zeker op deze 
taal terugkomen. Om uw nieuwsgierigheid vast te wek- 
ken staat in dit nummer een korte inleiding op het pro- 
grammeren in PostScript. 


Libraries 





De DESOview API 60 


De kans is klein dat er ooit zoveel DESQview-toepassin- 
gen op de markt komen als er Windows-toepassingen 
zijn. Toch biedt het schrijven van DESQview-specifieke 
programma’s een aantal voordelen, vooral waar het gaat 
om multitasking. De DESQview API maakt dit mogelijk 
en we bespreken de C-versie van deze library. 
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De Paradox Engine 96 


De Paradox Engine is een apart pakket voor program- 
meurs en bevat een groot aantal routines waarmee van- 
uit een hogere programmeertaal gebruik kan worden ge- 
maakt van Paradox-databases. Sinds kort is versie 2.0 
van de Paradox Engine uit, die ook Windows onder- 
steunt. 


Pascal 





Non-stop ASCII 75 


Dit TSR-programma in Pascal kan op elk moment 
worden geactiveerd om die ene moeilijk te onthouden 
ASCII-code op te roepen, en vervangt zodoende de 
ouderwetse ASCII-tabel van appendix A. 


Turbo Pascal vs. QuickPascal 63 


De twee populairste Pascal compilers voor de PC zijn 
Turbo Pascal en QuickPascal. In deze dubbeltest wordt 
van TP de laatste versie, 6.0, behandeld, terwijl van QP 
versie 1.0 wordt bekeken. 





Object-georiënteerd programmeren 
in Pascal, deel 2 14 


In OOP is het gebruik van virtuele methode een zeer 
krachtige mogelijkheid die maar door weinig program- 
meurs wordt uitgebuit. Met een duidelijk voorbeeld 
wordt het gebruik van deze soort methoden uitgelegd. 





TurboVision 40) 


Een van de belangrijkste uitbreidingen van Turbo Pascal 
6.0 is de TurboVision library waarmee het mogelijk is 
om text-based applicaties te schrijven. De IDE van Tur- 
bo Pascal is in Turbo Pascal zelf geschreven. Hetgeen 
aangeeft wat de mogelijkheden zijn. 


Overige talen 


Clipper 5.0 50 


Eind vorig jaar werd de nieuwste versie van Clipper ge- 
lanceerd, waarvan we een aantal uitbreidingen bespre- 
ken en ingaan op de vraag of de overstap van oudere 
versies de moeite waard is. 








Scramble 68 


Meestal zijn applicaties die in BASIC geschreven zijn 
vrij ongecompliceerd. Om te tonen dat met deze taal 
ook moeilijke problemen zijn op te lossen is in combina- 
tie met assembly onder andere een scramble-program- 
ma ontworpen. 








Een password voor de 56 
harde schijf 


U kunt dit password-systeem toevoegen aan uw harde 
schijf, zodat de toegang gelimiteerd wordt tot geselec- 
teerde personen. 
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Actor 72 








Onlangs werd het pakket Actor sterk in prijs verlaagd, 
reden voor de DOS Special om eens de aandacht op 
deze programmeertaal te vestigen. Actor is object- 
georiënteerd en biedt de mogelijkheid om relatief snel 
Windows-applicaties te genereren. 





Eiffel 89 
De programmeertaal Eiffel is niet erg bekend, maar be- 
vat een aantal zeer interessante mogelijkheden op het ge- 
bied van object-georiënteerd programmeren en betrouw- 
baarheid van software. 


Hardware en recensies 





De Intel 80486 SX processor 104 
Het instapmodel van Intel in de 486-serie is iets minder 
uitgebreid dan de 486 zelf, maar nog altijd sneller dan 
een 386/33 MHz processor. We bekijken in het kort de 
eigenschappen van deze processor en de mogelijkheid 
om later alsnog uit te breiden. 


foto van pagina 104 
(Intel) 





Recensies van boeken 105 


Achterin dit nummer staat zoals gewoonlijk weer een 
aantal recensies van boeken over programmeertalen. On- 
der andere C++, Clipper 5.0 en Pascal passeren de re- 
vue, maar maar ook boeken over talen in het algemeen 
en over MS-DOS 5.0. 











Inhoud 





Veel bedrijven zoeken een 
standaard in UNI 





AE 
PERDORGESBN Mo 




















































EY 
gh WOOD we en UD 
vegers Ki / ABASTERDAM s BRUSSEL « NEW YORK » LONDON De 
et van í f 
Ge, ; valanten 4 Ek 
GE en Geerds, Abstract 
E: DO GAN 8 nae Pee eet Sons ix het moeilijkste onderdeel van Wan } 
, eer” ono EEDE 7 ans eni de wephedrorse von wen damanvmij des Wigs, 
pes 5 Hi ; E R vi Ë £ 1e kijke 305 5 Ioiet viadva’ van ddelsunen. maor doen Zien, Pes Re À 
en UR Ö P E S E 2 4e y ĳ R 4 SEN onge Bons mepa ar hi ke vn dn da od, A 
ot D: \ 8 dn dn Wwisars Ie BESTIJEN IC Hen, ie deg Pig Lijs, 
Gro qe de iS og Venindesen. van roauictdes Op on eng onge 
se AED wesepress biedt mu ORS voor gr MAL nis Kpress tú Og, % 
ern ak eden wad} Vee busines nn , 3500 zorgt ai agnpnt tederkerijke waar zi vi, ad he 
: 5 ùA0e zate iptrodugtepdgs VERZ 77 ch bederte wers oer 5 bagj. ho, 
5 spectale s 7 5 fanden À ie 
ge aen 1 ge eef jd í toonen ever dut uw prikker O6” sind maar wersenitieude Buropeoe ih Wi eo 0 pag 
ao id aa 5 rvinde van de v gende heg ie verd. Zeg dd enig er sb ie Ô 
ad aa | petomgrijke Europese zeden OE oi re hg 
we zer B ed 8 # jj 
en en ve me ger tong ommen de 
vee SA gen BD pe sarde heren PT on pet dag Sch 
we ene | are Wd de pe en 
jes pO asen Snelservice w Europe von aant omg leeg 
ne A ek zó OR vereni en uitgebreide erasrderd hd eg hr an Ne Cg A 
ee ode | Legs u kaan bieden. Onze UI, ee 
er ge pe do gele ha di DEAG ama 727 jes maken a beet he A he pa 
xj ger ĳ hi Kl Ny Boh, 
was oer 46 ie gecer Á Da her pig ; 
gr wondt lr eis ring Ll 
re ij gts elen en, rap van 
wg en ee interwationsie son rg tap oe 
Oene wordt Kn ag gen minder vreemde WIJK OD , ke gien ed. | é velen Phi ong de 
Ve zg ED ME zendingen À ús ee 10 sie 4 oen edelsteen is 4 men f We be belg On Rig bovag td 
e ar ied Wij eten ianerpashonale enden eid un rhis. salt 7 pe Ee Á 5 zj ads f ie ie Ee Á hind dag ar hg voo, ie 
vonere soe hd order gemaak) door bet be an in 5 Zn oe OE harde muv mi Ze dd $ 
bre es geronde B gege forenolier maakt zak, DN an GE nen 6 wen ET A on hip Pra) Perte, 
za À de TA Waydid: opbod, en voorkomt A zen d Lr AN iten tan, Vering Vg, Keu, 
sas Kat alie va or Cg at Omg Opi rg, 
we de donne. U shi lg Bl he 7 
internationale 220 Ve He aen ed er 
fi el tn a vg, Dj 
eng hg 7 del 
Wes, % hij Sieis CB 
Hero Bhei, td, 
Eh Vh 1, 
Waar, Stary rag be 
pile en wers te ge « 
EL 
a loten “ch re Perg 
De, dein hon Jan 7 
Von ili Ploi Vbo A B Gen BE 
bede 


in, 6 / 

is ia tod Ver Ed 

ie waag dn lide 
kes, Vopg 


35 mimoen menen 
Pad 


Wr hebben uw standaard voor tekstverwerking 


Wanneer je tegenwoordig een standaard wilt controle. Om compatibiliteit en betrouwbaarheid te 
neerzetten, moet je meer in je mars hebben dan mooie garanderen wordt WordPerfect voortdurend getest en 
woorden. Bij WordPerfect Corporation doen we dat met aangepast voor ieder UNIX systeem. Of u nu gebruik 
de beste fontondersteuning, uitgebreide maakt van grafische terminals, karakter- 
integratiemogelijkheden tussen tekst en afbeeldingen, georiënteerde terminals of een combinatie van beide: 
en de beste telefonische support voor gebruikers in de WordPerfect geeft iedereen in het kantoor de 
markt. WordPerfect 5.0 ondersteunt meer dan mogelijkheid om afbeeldingen te zien. Ze worden vanzelf 
450 verschillende printers. Lettertypen worden in verschillende resoluties getoond, terwijl voor de 
automatisch geselecteerd als u de printerkeuze wijzigt, character-only terminals een beeld uit lijnstukken wordt 
zodat de originele opmaak vrijwel hetzelfde blijft. opgebouwd. 

U kunt nu ook kennismaken met stijlen en de kracht van En om het geheel af te maken, kunt u rekenen op 
programmeerbare makro's. de beste telefonische support. 

WordPerfect voor UNIX is speciaal voor de WordPerfect 5.0 voor UNIX. Wanneer u een 
UNIX-omgeving ontworpen - met file locking, standaard zoekt, neem dan contact met ons op. Wij 
wachtwoordbeveiligingen en geavanceerde print Job- hebben uw standaard, zwart op wit. 


WordPerfect 


N E D ER L A N D 


WordPerfect Nederland Barbizonlaan 25 2908MB Capelle aan den IJssel _ tel. (010) 40 70 100 
Voor België: Manhattan Office Tower Bolwerklaan2l b9 1210 Brussel België tel. (02) 217 48 54 
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unieke DOS Special M O D FE M aanbieding 


Nederlands grootste modem-leverancier, G & B Computers BV, start in 
samenwerking met SALA Communications een modem-actie. 

Ontdek met uw eigen PC en een Tornado de onbegrenste mogelijkheden 
van het telefonisch data-verkeer. Voor deze actie hebben wij een zorgvul- 
dige keuze gemaakt uit het leveringsprogramma van Tornado; de mo- 
dems zijn goedgekeurd door het Ministerie van Verkeer en Waterstaat en 
voorzien van een duidelijke handleiding. 





V TORNADOI 
Een intern modem met het V21, V22 en V22 bis protocol. Eenvoudig te installeren. En 
u kunt optimaal gebruik maken van onder andere de diensten van Videotex. 


Adviesprijs f 349,-. Actieprijs Á 299 Pa 


V/ TORNADO I EXTERN 
Een modem met dezelfde specificaties als de Tornado I alleen dan de externe uitvoe- 
ring. 


Adviesprijs f 399, Actieprijs Í 349 1 


/ Top of the line, het nieuwste TORNADO 9600 EV externe modem 
Met naast V21, V22 en V22 bis, ook nog V23, V32 en V42 bis. Tevens beschikt dit mo- 
dem over de MNP-5 data-correctie mogelijkheid. In de praktijk betekent dit dat men 
met behulp van dit modem een transfer-rate van 38.400 BPS kan bereiken. 
Adviesprijs f1.995,-. Actieprijs Á 1.795 ij 


F Modem-actie bestelbon 


"Naam: 


AMADOR onee Ee | 
Postcode/Plaats : y 


wil het volgende modem ontvangen: 
LJ Tornado I (f 299,-) 

LJ Tornado I extern (f 349,-) 

L) Tornado 9600 EV extern (f 1.795,-) 


en zal de betaling als volgt regelen: | 
L] Ik maak het juiste bedrag f … … … … … over op girorekening 
5206360 t.n.v. Sala Communications, Amsterdam onder ver- ; 
melding van MODEM-ACTIE. | | 
DO Ik verwacht een factuur en krijg dit modem na betaling toege- 
stuurd. 
0) Ik stuur bijgaand een cheque voor het juiste bedrag. | 
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Voorwaarden: Aanbieding geldt alleen voor abonnees. Geldig tot 1 september 1991 





Djels Special Bestelbon voor Nabestellingen 


Deze bon kunt u gebruiken om oude nummers en/of de bij- 
behoerende diskettes te bestellen. 

Hieronder treft u een overzicht aan van de na te bestellen 
nummers. Kruist u s.v. p. aan wat u wilt bestellen. U kunt 
bij elk item zelf de prijs invullen en vervolgens alles optel- 
len. Op deze manier weet u precies welk bedrag u dient 
over te maken. 

De prijzen zijn als volgt. 


° DOS Special Boek f 15,95 of 325 Bfr. 
° DOS Special Disk f 14,50 of 300 Bfr. 
° DOS Special Boek en diskette samen: 
f 24,95 of 500 Bfr. 
U kunt nu zelf uw bestelling en het totaal bedrag samen- 
stellen. 





Naam: 


Telefoon: 


Adres: . 


Postcode/plaats: 


TYPE diskette: 

O 5,25 inch 

O 3,5 inch * 

(doorhalen wat niet gewenst wordt) 


TOTAAL BEDRAG van mijn bestelling: 


f 








Stuur deze bon (of kopie) in een envelop met een onderte- 
kende girobetaalkaart of bankcheque naar: 

Sala Communications, Postbus 43048, 

1009 ZA Amsterdam. 

U kunt ook bestellen door direct het verschuldigde bedrag 
over te maken op giro 1585491 t.n.v. Sala Communica- 
tions, Amsterdam. U hoeft dan deze bon NIET op te stu- 
ren, WEL moet u de gewenste nummers en diskettes ver- 
melden. (Bijv.: nr. 4/90 disk en boek.) 

Voor België: BBL 310-0506025-62 





DOS Special nr. 3/89: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 4/89: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 1/90: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 2/90: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 3/90: 


LO boek 


O disk 
O Boek en diskette 


DOS Special nr. 4/90: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 1/91: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 2/91: 
O boek 
O disk 
O Boek en diskette 


DOS Special nr. 3/91: 
O boek 
O disk 
O Boek en diskette 


Totaal 


LET OP: DOS Special nr. 1 en 2/89 zijn niet meer lever- 


baar. 
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Neem nú een 
abonnement op de 
DOS Special en u 
weet u verzekerd 
van de volgende 
nummers van DOS 
Special 


vem 


Tevens ontvangt u 
dan PC Business 
Info minstens zes 
maal per jaar er 
extra bij. 





Neem nú een 
abonnement op de 
DOS Special en u 
weet u verzekerd 
van de volgende 
nummers van DOS 
Special 


mj 


Tevens ontvangt u 
dan de bijbehorende 
diskette met alle 
listings uit de DOS 
Special. 


Neem nú een 
abonnement op de 
DOS Special en u 
weet u verzekerd 
van de volgende 
nummers van DOS 
Special 


mj 


Tevens ontvangt u 
dan PC Business 
Info minstens zes 
maal per jaar er 
extra bij en de DOS 
Special Diskettes. 











Abonnement DOS Speciíal/PC Business Info 


J Á. ik wil een combinatie-abonnement DOS Special/PC Business Info. Ik krijg per jaar 
minimaal vier nummers DOS Special en zes nummers PC Business Info voor f 75. 
(Bfr. 1500) 


ONS enten morenen nina senaten neet TOTO ADE oo srarandnerasenserdnammkt 
eenen tenemen heeten be nessen nk raten eneen dnndesa da ane wedanaken eenen dense 


Post: PIRA aas annava arva reeeseestaananakdneneht enaar vendre ane 


Stuur deze bon (of kopie) in een envelop met een ondertekende girobetaalkaart of 
bankcheque naar: Sala Communications, Postbus 43048, 1009 ZA Amsterdam. 


U kunt ook bestellen door direct het verschuldigde bedrag over te maken, dan hoeft u deze 
bon NIET op te sturen, op giro 1585491 t.n.v. Sala Communications, Amsterdam o.v.v. het 
gewenste abonnement. Voor België geld overmaken op BBL 310-0506025-62. 


Abonnement DOS Special/Diskette 


JA. ik wil een combinatie-abonnement DOS Special/Diskette. Ik krijg per jaar minimaal 
vier nummers DOS Special en de bijbehorende diskettes voor f 75. 
(Bfr. 1500) 


NEN ennn heenttenencondreetonnee nat bbdedniddensen ln 
NE Ee aaararehsenteenent annen ek orseeeisnaatteaseeannienenrhnbeteseedhenpnien ensen 
DRL aeenknnadandepaden enen enen eeentinaas aratau aenietndendenk iam beden meeenpneende 
Stuur deze bon (of kopie) in een envelop met een ondertekende girobetaalkaart of 


bankcheque naar: Sala Communications, Postbus 43048, 1009 ZA Amsterdam. 


bon NIET op te sturen, op giro 1585491 t.n.v. Sala Communications, Amsterdam o.v.v. het 


U kunt ook bestellen door direct het verschuldigde bedrag over te maken, dan hoeft u deze D 
gewenste abonnement. Voor België geld overmaken op BBL 310-0506025-62. | 


Abonnement DOS Special/PC Business Info/Diskette 





per jaar minimaal vier nummers DOS Special en de bijbehorende diskettes én zes nummers 
PC Business Info voor f 115,-. 


J À. ik wil een combinatie-abonnement DOS Special/PC Business Info/Diskette. Ik krijg | 
(Bfr. 2300) | 


INK ensen entend nntebeenntt meet tedteniestnde ae enidels Telefoon: Ee 


enn onee edann an enneh ekanernentkenedne weren enoma ennieehtantennneaidernt nt derenne et tkdes 


Stuur deze bon (of kopie) in een envelop met een ondertekende girobetaalkaart of 
bankcheque naar: Sala Communications, Postbus 43048, 1009 ZA Amsterdam. 


U kunt ook bestellen door direct het verschuldigde bedrag over te maken, dan hoeft u deze 
bon NIET op te sturen, op giro 1585491 t.n.v. Sala Communications, Amsterdam o.v.v. het 


PRENTEN erenkeenens ed ben hedentendage eden vedetten | 
gewenste abonnement. Voor België geld overmaken op BBL 310-0506025-62. | 





PC Starter 


- Informatief handboek voor de beginnende computergebruiker 





DERDE 
EDITIE 


Prijs: f 14,95 
ISBNnr. 90-240-0723 2 





PC Starter is bedoeld voor iedereen die van start gaat met 
een MS-DOS Personal Computer. Het is samengesteld op 
basis van een bekende artikelen serie in het toonaange- 
vende computermagazine Computer Info. In eenvoudige 
bewoordingen worden vaktermen en afkortingen uit de 
automatisering stap voor stap behandeld. 


niormatiel handboek voor de beginnende compdtergebruiker 


Een ideaal boek voor wie zich op een snelle manier alle 
benodigde basisbegrippen voor het PC gebruik eigen wil 
maken. Het boek is zeer geschikt voor gebruik in het onder- 
wijs. Alle hoofdstukken worden vergezeld met vragenlijsten, 
die voor evaluatiedoeleinden kunnen worden gebruikt. 


Onderwerpen: Hardware, Monitoren; Opslagmedia; Con- 
trols; Uitbreidingskaarten; Videokaarten; Printers; Datacom- 
municatie; Software; Besturingssysteem; Tekstverwerking en 
DTP, incl. WordPerfect; Databases. incl. dBase; Spread- 
sheets, incl. Lotus 1-2-3; PS/2-computers; Netwerken. 





U kunt deze uitgave bestellen door overmaken van 
f 16,50 (incl verzendkosten)op gironummer 158549 1 
t.n.v. SAC Amsterdam onder vermelding van: 
PC Starter. Voor het onderwijs zijn er kortingsta- 
rieven. Leraren Informatica kunnen een recen- 


sie-exemplaar aanvragen via 


Sala Com./ t.a.v. M. Jansen Postbus 43048, 1009 ZA Amsterdam. 





nan en nd 


we onze lezers een specia- 


TURBO PASCAL FOR WINDOWS 


DON'T LEAVE DOS WITHOUT IT! 


Maak je volgende programma ook een Windows programma! 


Dit is de snelle manier om Windows toepassingen te maken, zonder de vertrouwde 
Turbo Pascal omgeving te hoeven opgeven. 
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Bij di Turbo Pascal® for Windows Borland’s zit GRATIS het nieuwe ObjectWind- 
ows” framework. Daarmee kunnen zeer snel toepassingen voor Windows gegene- 
reerd worden, omdat ze automatisch de juiste code voor menu's, vensters, dialoog- 

boxen, controls etc. meekrijgen. 


Speciale aanbieding: 
Early Bird Special 





Jep: js ah Ader Pas- BON VOOR BESTELLEN TURBO PASCAL FOR WINDOWS —_ 
al” for Windows is nor- | 
ll f 499,- excl. BTW | 
Als speciale promotieaktie Baan 

voor onze lezers bieden adres: 


postcode, plaats: 


le Early Bird Special prijs 
aan van f 399,- inclusief 

BTW. Reageer snel, dit is 
uw kans om snel op de 


Wil Turbo Pascal voor Windows ontvangen ( 3,5 of 5,25" disks): 


[] onder rembours f 25,- extra - fax. 020-6253280 


Windows trein te springen. L] maakt nu al f 399,- plus f 15,- verzendkosten over op 


girorekening 5206360 tnv. Sala Communications 
A'dam met vermelding Turbo en 3,5 of 5,25" 


[] verwacht een factuur en krijgt het pakket na 
betaling opgestuurd. 


Dit of kopie opsturen naar: Postbus 43048, 1009 ZA Amsterdam. Geldig tot 18 juli 








OOP in Turbo Pascal 











Object georiënteerd 
programmeren In 


Turbo Pascal 


Deel 2: Virtuele methoden en dynamische objecten 


In de vorige DOS-Special werd een introductie gegeven in object-georiënteerd program- 
meren (OOP) in Turbo Pascal. Er werd gesproken over encapsulation, inheritance en poly- 
morfie. Over deze drie steunpijlers van OOP was toen natuurlijk nog lang niet alles ge- 
zegd, daar is de materie gewoon te uitgebreid voor. Virtuele methoden zijn in dat artikel 
in het geheel niet behandeld, terwijl ze toch een wezenlijk onderdeel van OOP vormen. 


Wanneer een methode virteel is betekent dat 
informeel: gebruik de body van de methode 
in het afgeleide object, indien dat mogelijk is. 


Om het geheugen nog even op te frissen, een 
object is een verzameling van datamembers 
en methoden die bewerkingen op die data- 
members kunnen uitvoeren. Een object kan 
de methoden en datamembers van een ander 
object erven, men spreekt dan van inheritan- 
ce. Er kunnen aan dat object nieuwe metho- 
den en datamembers worden toegevoegd en 
de bestaande methoden uit het ouderobject 
mogen overschreven worden. Dat wil zeg- 
gen, de methode houdt dezelfde naam, maar 
de body kan verschillend zijn en de parame- 
ters mogen verschillen. Een variabele van 
dat type object, een zogenaamde instantie of 
instance, krijgt dan bij een aanroep naar een 
methode de voor hem bedoelde. 

Maar in het volgende voorbeeld zal de 
uitvoer niet zijn zoals we zouden willen. De 
bedoeling is om de naam van beide objecten 
op het beeldscherm te krijgen, maar er wordt 
twee keer ’BaseObject’ geprint. 


Type BaseObject 

= Object 
Name : String; 
Procedure PrintMyName; 
Procedure Print; 
End; 

InheritedObject 

= Object (BaseObject) 
Procedure PrintMyName; 
End; 

















Procedure BaseObject.PrintMyName; 
Begin 

Name :=’ BaseObject' ; 

WriteLn (Name); 

End; 


Procedure BaseObject.Print; 
Begin 

PrintMyName; 
End; 


Procedure InheritedObject.PrintMyName; 
Begin 

Name:=' InheritedObject' ; 

WriteLn (Name) ; 

End; 


Var Base : BaseObject; 
Inherited : InheritedObject; 


Begin 
Base.Print; 
Inherited.Print; 
End. 


De oorzaak hiervan kunt u terugvinden in 
de volgende tekening op de volgende pagina. 


InheritedObject erft de methoden ‘PrintMy- 
Name’ en ‘Print’ van BaseObject. De metho- 
de ‘PrintMyName’ wordt echter overschre- 
ven. Het zou dus logisch zijn dat wanneer de 
instantie ‘Inherited’ de message ‘Print’ 
stuurt, de methode ‘PrintMyName’ van ’In- 
heritedObject’ zou worden genomen. Toch 
gebeurt dit niet, en het waarom is vrij een- 
voudig in te zien. De compiler moet namelijk 
bij het vertalen van de methode ‘Print’ weten 
naar welk adres gesprongen moet worden 
wanneer de methode ‘Print MyName’ wordt 
uitgevoerd. Hij neemt hiervoor de methode 
’PrintMyName’ die in ’BaseObject’ is gedefi- 


ve 
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CintMyName, 
@tAndPrint 


PrintMyName; 
























a (oet aan noien niet virtueel 


De —> coept aan noen virtueel 


Koe dT Deen Voor instanties van 
inheristede ject Bij nstantes van 
Bbaselleject wordt altijd de methode 
PrintMyName van BaseDbject genomen) 


niëerd. Dit is volstrekt logisch, want voor 
een instantie van ‘BaseObject’ moet ook deze 
‘PrintMyName’ worden aangeroepen. Deze 
manier van binding staat bekend onder ’ear- 
ly binding’ of ‘vroege binding’. Gelukkig be- 
zit Pascal ook de mogelijkheid om het tegen- 
overgestelde, ‘late binding’, te verwezenlij- 
ken. Late binding wil dus zeggen dat pas 
tijdens de executie van het programma 
wordt besloten welke versie van de methode 
moet worden aangeroepen. Deze methoden 
heten virtueel en worden als zodanig geken- 
merkt indien achter hun declaratie in het ob- 
ject het keyword ‘virtual’ staat. 


Type BaseObject 
= Object 
Name : String; 
Procedure PrintMyName;Virtual; 
Constructor Print; 
End; 
InheritedObject 
= Object (BaseObject) 
Procedure PrintMyName; Virtual; 
End; 


Procedure BaseObject.PrintMyName; 
Begin 

Name :=’ BaseObject'’ ; 

WriteLn (Name); 

End; 


Constructor BaseObject.Print; 
Begin 

PrintMyName; 

End; 





Procedure InheritedObject.PrintMyName; 
Begin 

Name:=’ InheritedObject'’ ; 

WriteLn (Name); 


End; 
Var Base : BaseObject; 

Inherited : InheritedObject; 
Begin 


Base.Print; 
Inherited.Print ; 
End. … 


De uitvoer van deze code zal wel het beoog- 
de resultaat geven, en wel: 


BaseObject 
InheritedObject 


U ziet dus dat hier gebeurd wat in het begin 
van het artikel vermeld staat. De body van 
de methode van het afgeleide object wordt 
gebruikt als dat mogelijk is. 


Constructor 

Er is nu nog een nieuw keyword bijgeko- 
men, namelijk ‘constructor’. Een constructor 
is in feite niets ander dan een procedure, 
maar met een speciale eigenschap. Wanneer 
er virtuele methoden in een object zijn gede- 
clareerd moet alvorens met een instantie ge- 
werkt wordt, eerst de constructor worden 
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kan bij virtuele methoden. Wilt u dat toch, 
dan dient u de methode een andere naam te 
geven! 


Destructors 

De tegenhanger van een constructor is de de- 
structor. De naam impliceert het al, met deze 
speciale procedure wordt een object weer 
verwijderd. Een object kan meerdere destruc- 
tors bezitten, in tegenstelling tot het aantal 
constructors, dat ten hoogste één is. Boven- 
dien kan een destructor virtueel zijn, aange- 
zien de VMT al aangemaakt is door de con- 
structor. Let er op dat een destructor pas 
kan worden aangeroepen nadat het object 
met een constructor is aangemaakt. Dit geldt 
aangeroepen. Een constructor voegt aan elk | tevens voor aanroepen van virtuele metho- 
object een pointer toe die naar een speciale den (en dus ook methoden die een virtuele 
tabel, de Virtual Method Table (VMT), wijst. | methode aanroepen). Door het compilerdi- 
Deze tabel bevat de adressen van alle metho- | rective {$R+} aan te zetten wordt deze fout 





den die virtueel zijn. Wordt zo’n methode door Turbo Pascal herkend. Een goede ge- 
aangeroepen, dan wordt uit de VMT eerst woonte is dan ook om voordat u ook maar 
het juiste adres gehaald, zodat de goede me- | iets doet met een instantie eerst de construc- 
thode voor die instantie wordt aangeroepen. | tor te laten aanroepen. In de constructor be- 
Dit gebeurt dus allemaal tijdens de executie vinden zich dan ook meestal initialisaties. De 
van het programma en niet tijdens de compi- | algemene naam voor de constructor is ‘Init 
leerfase van het programma. Merk op dat of 'Initialize’, maar zoals u in bovenstaande 
een constructor nooit virtueel kan zijn, om- source ziet kan het ook anders. De algemene 
dat er bij aanroep van de constructor nog naam voor een destructor is ‘Done’. 

geen VMT is, terwijl die dan wel nodig zou 

zijn om de juiste constructor te kiezen. Een Dynamische objecten 


andere beperking die aan het werken met vir- | Vooralsnog zijn alleen statische objecten de 
tuele methoden wordt gesteld is dat het aan- | revue gepasseerd, maar net als bij records en 
tal, type en volgorde van de parameters van | andere datastructuren is het ook mogelijk 

de methode identiek moeten zijn (in het voor- | om dynamische objecten te creêren. Het gro- 
beeld zijn er geen parameters, dus aan deeis | te voordeel is natuurlijk een efficiënter ge- 


is voldaan). Wanneer deze eis niet gesteld heugengebruik. Een dynamisch object wordt 
zou worden, was de compiler niet in staat in Turbo Pascal net zo aangemaakt als bij an- 
om een foutmelding te geven indien een me- dere pointers, met ‘New. 
thode met de verkeerde parameters zou wor- 
den aangeroepen. Nogmaals, pas tijdens de Type ee nt 
executie van het programma is bekend wel- Reet enikene Mik 
ke methode wordt uitgevoerd. Enne Weiterb: Varsual, 
Virtuele methoden in QuickPascal Object2 = Object (Object1) 
Tot nu toe hebben we ons steeds beperkt tot B dd Ee 
de implementatie van OOP in Turbo Pascal, nn 
Ô ê Var Ol : “Object1; 
maar ook Microsoft heeft een Pascalcompiler 02 : “Object2; 
die OOP ondersteund, QuickPascal. In QPis | constructor Östers 
elke methode virtueel, wat inhoudt dat er Begin 
geen overschrijving van methoden mogelijk ind Ë. 
is met andere parameters, omdat dat niet End; 
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Procedure Objectl.Writelt; 
Begin 

WritelLn (X); 

End; 


Procedure Object2.Writelt; 
Begin 

Writeln (X%*X); 
End; 


‚ Begin 

New (O1) ; 

Ol.Init; 

New (O2, Init) ; 

If O2 Nil Then Writeln (’creëren 
gelukt’); 
End. 


Uitvoer 3 
Een gelukt 

Uitvoer zonder virtuele 
functies ï 

en gelukt 
U ziet dat O1 wordt aangemaakt door eerst 
met New(O1) ruimte op de heap te reserve- 
ren en daarna de constructor aan te roepen. 
Dan wordt dus pas de VMT voor O1 aange- 
maakt (En voor alle nog komende instanties 
van hetzelfde type als O1). Alleen bestaat de 
VMT-Pointer, een pointer die wijst naar het 
adres van de VMT, nog niet voor die andere 
instanties, dus moeten deze nog steeds met 
de constructor worden aangemaakt. U ziet 
echter dat de instantie O2 op een andere ma- 
nier wordt aangemaakt. Het aanroepen van 
de constructor en de opdracht om ruimte op 
de heap te krijgen zijn hier in één statement 
samengevoegd. Deze schrijfwijze heeft een 
aantal voordelen waar we hier niet verder op 
in zullen gaan, behalve dan dat het nu heel 
makkelijk wordt om te kijken of het creëren 
van een instantie gelukt is. Als het niet ge- 
lukt is wijst O2 namelijk naar ’Nil’, vandaar 
het testen daarop. Wanneer O2 een statisch 
object was, was dat na te gaan door de vol- 
gende Booleaanse functie uit te voeren: 


If O2.Init Then Writeln 
(“creëren gelukt’); 


Deze schrijfwijze doet een beetje vreemd 
aan, omdat Init hier als een functie be- 
schouwd wordt die een waarde teruggeeft, 
terwijl het ook een speciaal soort procedure 
is. Dat komt omdat in constructors de in- 
structie ‘Fail’ kan worden teruggegeven. 
Deze doet in feite hetzelfde als ‘Exit’, maar 
geeft ook aan dat de creatie van de instantie 
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mislukt is. Wanneer in de constructor bij- 
voorbeeld een stuk geheugenruimte wordt 
gereserveerd en de heap dit niet beschikbaar 
heeft, dan kan dit door een Fail terug te ge- 
ven doorgegeven worden. 


Polymorfie 

De combinatie van virtuele methoden en dy- 
namische objecten stelt ons in staat om een 
de derde steunpijler van OOP te verwezenlij- 
ken, namelijk polymorfie. Polymorfie bete- 
kent letterlijk veelvormigheid, hetgeen in dit 
verband met het volgende voorbeeld verdui- 
delijkt wordt. Stel dat u een basisobject Data- 
Type definieert. Deze krijgt een aantal virtu- 
ele methoden, waaronder de methode Print. 
Wanneer u nu afgeleide objecten maakt, zo- 
als een String en een Integer, dan kunt u 
deze dynamisch aanmaken. Wordt nu de 
procedure WWrite gedefinieerd die als para- 
meter een pointer naar een datatype mee- 
krijgt, dan kan in die procedure een aanroep 
gedaan worden naar de Print-methode van 
dat specifieke object. Vergelijk dit eens met 
de normale WriteLn die TP bezit. U kunt elk 
datatype meesturen zonder dat u zich druk 
hoeft te maken over dat type. WriteLn be- 
kijkt zelf wat het type is en onderneemt dan 
de juiste stappen. 


Program PolyTest ; 


Uses Crt; 
Type PDataType = “DataType; 
DataType = Object 


Constructor Init; 
Procedure Print;Virtual; 
End; 


PStringType = “StringType; 
StringType = Object (DataType) 


s : String; 
Procedure Print;Virtual; 
End; 
PIntType = AIntType; 
IntType = Object (DataType) 


i : Integer; 
Procedure Print;Virtual; 
End; 


Constructor DataType. Init; 
Begin 
End; 


Procedure DataType.Print; 
Begin 

WritelLn('Empty Type’); 
End; 


Procedure StringType.Print; 
Begin 

WritelLn(s) ; 

End; 
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Procedure IntType.Print; 
Begin 

Writeln(i); 

End; 


Procedure WWrite(HP : PDataType); 


Begin 
HP“.Print; 
End; 


Var DT : PDataType: 


Begin 

CLIErSer; 

New (DT, Init) ; 

WwWrite (DT) ; 

New (PStringType (DT), Init) ; 
PStringType(DT)“.s:='dit is een string’; 
WWrite (DT) ; 

New (PIntType (DT), Init) ; 
PIntType(DT) “.i:=1000; 
Wwrite (DT) ; 

End. 


De uitvoer van dit programma zal dan ook 
zijn: 
Empty Type 


dit is een string 
1000 


In de volgende DOS-Special zal een uitge- 
breider voorbeeld van polymorfisme ter spra- 
ke komen. 


Voorbeeldprogramma 

Het voorbeeldprogramma bestaat voor het 
grootste deel uit een file-finder die het moge- 
lijk maakt om op meerdere disks in alle direc- 
tories files te zoeken. Op de commandline 
wordt een mask meegegeven, waarbij wild- 
cards zijn toegestaan. Indien de optie /h 
wordt meegegeven, dan wordt op alle drives 
vanaf c: gezocht, indien de optie /f wordt 
meegegeven op alle drives (dus vanaf a:). 
Wanneer geen extra optie wordt meegege- 
ven wordt alleen de huidige drive afgewerkt. 
Een extra optie /q zorgt ervoor dat er ge- 
zocht wordt zonder dat de gevonden files op 
het scherm komen te staan. Bij een filefinder 
is dit niet zo handig, maar in afgeleide objec- 
ten echter wel. Het programma stopt niet 
wanneer een drive niet bestaat, maar zoekt 
verder naar de volgende drive. Elke keer 
wanneer een file voldoet aan het mask wordt 
de virtuele methode ’DoWithFile’ aangeroe- 
pen, die in het geval van de filefinder de 
naam en de betreffende directory op het 
beeldscherm zet. Het gebruik van virtuele 
functies is in dit geval nog niet noodzakelijk, 








maar wel wanneer we door middel van in 
heritance een programma ontwikkelen dat 
kijkt hoeveel ruimte bepaalde bestanden in 
beslag nemen. In principe is doet dit hetzelf- 
de als het programma ‘used’ uit de vorige 
DOS-Special, alleen is deze versie dus ge- 
schikt voor he* zoeken op meerdere schijven. 
Diegenen die meerdere harddisks in de com- 
puter hebben zitten of nog met een oudere 
versie dan 4.xx van DOS werken bezitten nu 
dus een uitbreiding. Indien u zelf een keer 
een applicatie ontwikkeld waarbij het voor- 
komt dat u subdirectories op één of meerde- 
re schijven moet doorzoeken, dan heeft u 
aan de filefinder een aanzet. Door het over- 
schrijven van de methode ‘'DoWithFile’, die 
in ‘Search’ wordt aangeroepen, kunt u uw ei- 
gen bewerkingen doen. De informatie over 
de file zit opgeslagen in de datamember ’Fi- 
leInfo’, die van het voorgedefinieerde type 
'SearchRec’ is. Informatie hierover vindt u 
bij de uitleg van de unit ‘dos’. Het handigst 
is wanneer u aelf een nieuwe methode ‘Do- 
SearchingFor’ ontwikkeld, vanwaaruit 
‘Search’ wordt aangeroepen. In 'DoSearch- 
ingFor’ kunt u dan een aantal initialisaties 
doen en na ‘Search’ de gevonden resultaten 
op het beeldscherm zetten. Alle objecten zijn 
hier dus statisch, zodat er nog niet echt spra- 
ke is van polymorfie. 
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Program DosExtend; 


{$SI-} {bij een I/O foutmelding stopt het 
programma niet} 


Uses Dos, Crt; 


Type FileFinder 
= Object 
SearchMask : String; 
FileInfo, 
DirInfo : SearchRec; 
SearchAllHD, 
SearchAll, 
ScannedDir, 
QuietMode Boolean; 
Files : LongInt; 
{* aantal files wordt door ff bijgehouden *} 


Constructor Init; 
Procedure PrintDir; 


Procedure ParamInit; Virtual; 
Procedure PrintUsage; Virtual; 


Procedure DoWithFile; Virtual; 
Procedure SearchDisk 


(RecDirInfo 
SearchRec) ; 
Procedure Search; 
Procedure DoSearchingFor ; 
End; 
SpaceSearcher 
= Object (FileFinder) 
SpaceUsed LongInt; 
Procedure DoWithFile; Virtual; 
Procedure DoSearchingFor; 
End; 


Constructor FileFinder.Init; 


Begin 
SearchMask:=ParamStr (1); 
DirInfo.Name:=’ \’; 
SearchAllHD:=False; 
SearchAll:=False; 
QuietMode:=False; 
Files:=0; 

ParamInit; 

End; 


Procedure FileFinder.ParamInit; 
Begin 
If ParamCount = 3 
Then ’ 
If ParamStr(3) = ’'/q’ 
Then 
QuietMode:=True 
Else 
PrintUsage; 
If (ParamCount In [2..3]) 
Then 
If ParamStr(2) = ’/h’ 
Then 
SearchAllHD:=True 
Else 
If ParamStr(2) = ’/£’ 
Then 
SearchAll:=True 
Else 
If (ParamCount = 2) And 
(ParamStr(2) = '/q') 
Then 
QuietMode := True 
Else 
PrintUsage; 
If Not (ParamCount In [1..3]) 
Then 
PrintUsage; 
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WriteLn(’ Searching for all ’,SearchMask, 
' files’); 
End; 


Procedure FileFinder.PrintUsage; 


Begin 

WriteLln(’Gebruik : searchmask [/h] [/£] 
([/al)'):; 

WriteLn(’Opties :’'); 

WriteLn(’/h : alle harddisks’); 
Writeln('/f : harddisks + floppydisks'’); 
WriteLn(’'/q : quiet mode’); 

Halt; 
End; 


Procedure FileFinder.SearchDisk 
(RecDirInfo : SearchRec); 


{* deze recursieve procedure wordt eerst aange- 


roepen met ’\’, zodat vanaf de root van de 
disk begonnen wordt met zoeken. *} 
Var Attrib : Word; 
Continue Boolean; 
F : File; 
Begin 


ChDir(RecDirInfo.Name) ; 

ScannedDir:=False; 

FindFirst (SearchMask, Archive, FileInfo) ; 

While DosError = 0 Do 

Begin 

DoWithFile; {aanroep naar virt.meth.} 
ScannedDir:=True; (eerste file in deze dir} 
FindNext (FileInfo) ; 


End; 
FindFirst(’*.*’ Directory, RecDirInfo) ; 
While (RecDirInfo.Name[l] = ’.’) And 
(DosError = 0) Do 
FindNext (RecDirInfo); { skip ’.’ en ’..’ } 
While (DosError = 0) Do 
Begin 


Assign (F,RecDirInfo.Name) ; 
GetFAttr(F,Attrib) ; 
If Attrib = Directory Then 


Begin 
SearchDisk(RecDirInfo); { recursieve } 
CRDLEL ……"}? { aanroep } 
End; 
FindNext (RecDirInfo) ; 
End; 


End; 
Procedure FileFinder.Search; 


Var DiskNumber, 
FromDisk, 
ToDisk : Integer; 
ChangeTo, 
SaveDir, 
SaveDrive : String; 


Begin 
GetDir (0, SaveDrive) ; 
If SearchAllHD 


{bewaar eerste drive} 


Then 
FromDisk:=3 {vanaf C:} 
Else 
FromDisk:=1; {vanaf A:} 
If SearchAll Or SearchAllHD 
Then 
ToDisk:=26 {tot en met Z:} 
Else 
ToDisk:=1; {alleen huidige disk} 
For DiskNumber:=FromDisk To ToDisk Do 
Begin 
If SearchAll Or SearchAllHD 
Then 
Begin 
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ChangeTo:= (Chr (DiskNumber+64)) + ’:’; 
ChDir (ChangeTo) ; {verander naar drive} 
End; 
GetDir(O,SaveDir) ; 
ChDir(’\’); 
If IOResult = 0 Then 
SearchDisk(DirInfo);{ga naar root en zoek} 
ChDir(SaveDir) ; {herstel dir} 
End; 
ChDir (SaveDrive) ; 
End; 


{bewaar directorie} 
{ga naar root} 


{herstel drive} 


Procedure FileFinder.DoWithFile; 


{ deze virtuele methode kan vanuit andere 
DowithFile methoden worden aangeroepen om de 
naam van de file en eventueel de directory 
te printen. ook wordt het aantal gevonden files 

bijgehouden. roep aan dmv 
FileFinder.DoWithFile, 

dus niet alleen DoWithFile 

(zie SpaceSearcher.DoWithFile) 


} 


GetDir (0, Name) ; 
WriteLn (Name); 
End; 


Procedure FileFinder.DoSearchingFor; 


Begin 

Search; 

WriteLn (‘aantal files : 
End; 


'‚Files) 


Procedure SpaceSearcher.DoWithFile; 


Begin 

SpaceUsed:=SpaceUsed + FileInfo.Size; 
FileFinder.DoWithFile; 
End; 


Procedure SpaceSearcher.DoSearchingFor; 


Begin 

SpaceUsed: =0; 

Search; 

WriteLn (‘totale ruimte gebruikt door ’ 


Begin 
If Not (QuietMode) 


‚SearchMask, ’ 


WritelLn (‘aantal files : 


'‚SpaceUsed, ’ bytes’); 
' Files): 


Then End; 
Begin 
If Not (ScannedDir) {* hoofdprogramma, nu ingesteld op een 
Then SpaceSearcher, door type van SearchFor te 
PrintDir; veranderen in FileFinder wordt het een 
WritelLn(’' ' FileInfo.Name) ; FileFinder. Door de smart-linker wordt 
End; onnodige code niet meegecompileerd 
Inc (Files) ; *} 
End; 
Var SearchFor : SpaceSearcher; 
Procedure FileFinder.PrintDir; 
Begin 
SearchFor. Init; 
SearchFor.DoSearchingFor; 


Begin End. 


Var Name : String; 





Benelux Network Specialists 


Wij leveren netwerkkaarten en netwerkstations, maar installeren 
graag uw complete Ethernet of Arcnet LAN. 





Tel. 020-6203239 4-Dimension 8 Bit Ethernet kaart f 360,- 
Fax.020-6268975 4-Dimension 16 Bit Ethernet kaart f 475,- 
| WD-Ethernet kaart 8 bit f 595,- 
Bel snel WD Ethernet kaart 16 bits f 675,- 

Ë y eve 4-Dimension netwerkstation 80286/12 met 
prijso Na Ethernet-aansluiting f 2.150,- 
da Met 3,5" FDD f 2.275,- 

korting bij aantallen. IMC netwerkstation 80286/12 met 

Ethernet-aansluiting f 1.495,- 


Prijzen excl. BTW. 
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DOS 5.0 


Op 11 juni introduceerde Microsoft versie 5.0 van het besturingssysteem MS-DOS. Deze 
versie bevat vele verbeteringen op de voorgaande versies, waarvan we de belangrijkste in 


dit artikel zullen behandelen. 


‚ Veel aandacht is besteed aan de geheugen- 
‚ problematiek die onlosmakelijk met MS- 
‚DOS is verbonden. Zo is het nu mogelijk om 
‚met een nieuw commando ‘LoadHigh’-pro- 
‚gramma’s (inclusief een deel van het systeem 
zelf) in het hoge deel van het geheugen te la- 
den, waardoor een groter gedeelte van de on- 
‚ derste 640 kB beschikbaar blijft. Verder is de 
‚ DOS-Shell in een nieuw jasje gestoken, en 
werd een aantal nieuwe mogelijkheden toe- 
gevoegd zoals het ‘swappen’ van program- 
‚ ma’s. De oude getrouwen Edlin en Basic zijn 
‚in DOS 5 vervangen door moderne versies, 
te weten de full-screen editor Edit en de 
QuickBasic interpreter. Ook wordt in de 
nieuwe DOS wat meer aandacht besteed aan 
het geven van on-line hulp-informatie over 
commando’s. Tenslotte wordt nu een aantal 
handige utilities meegeleverd, waarvan enke- 
| le al uit het public domain-circuit bekend wa- 
ten. 


Het geheugen van de PC onder MS- 
DOS 

Het is algemeen bekend dat MS-DOS niet 
probleemloos gebruik kan maken van al het 
geheugen in uw PC. Zoals bekend mag wor- 
den verondersteld, kunnen computers die ge- 
baseerd zijn op de 8088/8086-processors 
slechts 1024 kiloByte ofwel 1 MegaByte 
adresseren. Oorspronkelijk werd deze hoe- 
veelheid geheugen in twee gelijke stukken 
gedeeld: 512 kB voor gebruikersprogram- 
ma’s en 512 kB voor het BIOS en hardware 
devices. Gelukkig werd kort daarna deze ver- 
houding bijgesteld tot 640 kB voor program- 
ma’s en 384 kB voor de rest (upper memory 
genoemd); dit is waar de bekende 640 kB- 
grens vandaan komt. Met de komst van de 
80286- en 80386-processoren werd de hoe- 
veelheid adresseerbaar geheugen vergroot 
tot vele Megabytes; het direct toegankelijke 
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geheugen bleef onder MS-DOS echter nog 
steeds beperkt tot die grens van 640 kB. Dit 
is eveneens het geval in versie 5.0 van MS- 
DOS. 

Andere besturingssystemen zoals UNIX 
en OS/2 kunnen wel al het PC-geheugen di- 
rect aanspreken; tevens biedt Windows 3.0 
in enhanced mode de mogelijkheid deze 
grens te omzeilen. Omdat de meeste PC-pro- 
gramma’s echter onder MS-DOS draaien, 
werd een aantal hulpmiddelen ontwikkeld 
om het extra geheugen te kunnen gebruiken, 
hetgeen we nu zullen behandelen. De figuur 
geeft schematisch aan hoe het geheugen op 
een PC in elkaar steekt. 
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Extended memory 

Een methode om van meer geheugen ge- 
bruik te kunnen maken, is het installeren van 
extended geheugen. Om dit geheugen onder 
MS-DOS toegankelijk te maken moet boven- 
dien een extended memory manager geïnstal- 
leerd worden. Een extended memory mana- 
ger zorgt dat het gebruik van extended me- 
mory door programma’s in goede banen 
wordt geleid. Vanaf DOS 4.0 levert Microsoft 
de extended memory manager HiMem.Sys 
mee. Na het installeren van deze device dri- 
ver is het mogelijk om programma’s hoog te 
laden, wat inhoudt dat deze programma’s 
niet in het conventionele (tot 640 kB) geheu- 
gen gezet worden, maar in het door HiMem 
toegankelijk gemaakte extended (hoge) ge- 
heugen. Hiertoe gebruikt men het nieuwe 
DOS-commando ‘LoadHigh’ (of LH). 


De eerste 64 kB van het extended memory 
wordt in het algemeen de High Memory 
Area (HMA) genoemd. Dit is het stuk geheu- 
gen waar de nieuwe DOS-versie een stuk 
van zichzelf kan onderbrengen. 


Expanded memory 

Een andere methode om de 640 kB-barrière 
te doorbreken is het gebruiken van expan- 
ded memory. Oorspronkelijk werd expan- 
ded memory veelal geleverd op speciale 
EMS-kaarten zoals het Intel AboveBoard. 
Tegenwoordig kan echter veel goedkoper ex- 
tended memory worden gebruikt als expan- 
ded memory met behulp van speciale expan- 
ded memory managers zoals QEMM en 
EMM386 van Microsoft. 


DosKey 
Edit 


OBasic 
Help 
LoadHigh (Ih) 


Mirror 
Undelete 
Unformat 
SetVer 





Tabel 1. Nieuwe DOS-commando’s 





Extended 
memory 


Conventioneel 
geheugen 


De geheugenindeling van de PC onder DOS 


Nieuwe commando’s 

Deze nieuwe DOS-versie bevat zowel een 
aantal nieuwe commando's als uitbreidingen 
op bestaande commando's. We hebben reeds 
het commando ‘LoadHigh’ besproken, waar- 
mee TSR-utilities en andere programma’s 
‘hoog’ geladen kunnen worden. Tabel één 
geeft een overzicht van de nieuwe DOS-com- 
mando’s. 


DosKey 


DosKey is een programma waarmee het edi- 
ten van de command-line mogelijk wordt; | 
bovendien houdt dit programma een history- _ 
list van de laatste commando's bij. Velen zul- 
len soortgelijke programma’s al vanuit het 
public-domain circuit kennen. DosKey kan 
ook worden gebruikt om macro's te definië- 
ren. De mogelijke command-line opties van 
DosKey zijn: 


DosKey [/ReInstall] [/BufSize=size] 
[/History] [/Insert | /Overstrike] 
([/Macros] 


De RelInstall-optie installeert een nieuw 
exemplaar van DosKey in het geheugen, 
waarbij de history-list wordt verwijderd. 

Met BufSize kan de buffergrootte worden in- 
gesteld die DosKey gebruikt om comman- 
do’s in te bewaren. Met /History-wordt een 
overzicht gegeven van de commando's die 

in de buffer staan. De initiële modus (tussen- 
voegen of overschrijven) van DosKey kan 
met de opties Insert en Overstrike worden in- 


TA 
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gesteld. Met /Macros tenslotte wordt een 
overzicht gegeven van alle tot dusver gedefi- 
nieerde macro’s. 


Macro's ofwel aliases kunnen met DosKey 
als volgt worden gedefinieerd: type ‘Dos- 


Key’ in, gevolgd door de naam van de macro 


en de definitie van de macro. Namen van pa- 
rameters kunnen met $1, $2 enzovoorts wor- 
den aangegeven. Zo kunnen we bijvoorbeeld 


de macro ‘cat’ definiëren als ‘type’: 
DosKey cat=type $1 


Nu zal ‘Cat \AutoExec.Bat’ hetzelfde resul- 

taat opleveren als het Type-commando. Ook 
ingewikkelder macro’s kunnen op deze ma- 
nier worden gedefinieerd: 


DosKey MovezCopy $1 $2 $t del $1 


Hiermee zal ‘Move’ eerst kopiëren en vervol- 
gens het source-bestand verwijderen. Het te- 
ken $t staat voor een scheiding van comman- 
do's. Dit is ook mogelijk op de command- 
line zelf: door Ctrl-T in te typen kunnen 
diverse commando’s op één regel achter el- 
kaar worden ingevoerd: 


MkDir NewDir cd NewDir 


Edit en QBasic 

Naast de bekende regel-editor ‘Edlin’ bevat 
DOS 5 ook een wat meer geavanceerde edi- 
tor, ‘Edit’ genaamd. Dit programma onder- 
steunt het gebruik van de muis en maakt ge- 
bruik van pull-down menu’s en vensters. 
Het Edit.Com-programma lijkt erg klein, 
maar maakt gebruik van QBasic.Exe, onge- 
veer 250 kB in grootte. Dit is de nieuwe Basic- 
interpreter, die voor Edit beschikbaar moet 
zijn. De Basic-interpreter is in DOS 5 dus ver- 
vangen door QuickBasic versie 1.0; hiermee 
kunnen echter geen „EXE-bestanden worden 
aangemaakt van Basic-programma’s. 


Help 

Dit programma kan worden gebruikt om 
hulp-informatie op te vragen over de be- 
schikbare MS-DOS commando's. Het inty- 
pen van HELP zonder parameters geeft een 
overzicht van deze commando’s, inclusief 
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een korte omschrijving. Om hulp te verkrij- 
gen over het commando Dir kan ‘HELP Dir’ 
worden ingetypt. Ook kan overigens ‘Dir /?’ 
worden gebruikt om gedetailleerde informa- 
tie te verkrijgen; dit is bovendien sneller dan 
het gebruik van HELP. 


Mirror 

Het Mirror-programma slaat informatie op 
over schijven die later gebruikt kan worden 
bij de commando's UnDelete en UnFormat. 
Het geven van het commando ‘Mirror /tc’ 
bewaart een kopie van de File Allocation Ta- 
ble (FAT) en start een proces genaamd ‘dele- 
tion tracking’. Een speciaal programma 
wordt hiertoe als een TSR in het geheugen 
geladen en houdt een lijst bij van bestanden 
die verwijderd worden. 


Voorts kan Mirror een bestand maken met 
cruciale informatie over de huidige partities 
van de harde schijf. Dit bestand wordt op 

een diskette opgeslagen, en kan later door 
UnFormat gebruikt worden om een abusieve- 
lijke formattering van een schijf ongedaan te 
maken. 


Mirror kan op de volgende manieren ge- 
bruikt worden: 


Mirror [Drive:] [/1] /tTargetDrive 
[-Entries] 


Hiermee wordt het ‘deletion tracking’-sys- 
teem geïnstalleerd voor station “TargetDri- 
ve’. Het informatie-bestand zal op ‘Drive’ 
worden opgeslagen. Met ‘Entries’ kan wor- 
den aangegeven hoeveel verwijderde bestan- 
den maximaal worden bijgehouden. De op- 
tie /1 voorkomt dat Mirror bij het inlezen 
van de schijf-informatie een backup maakt 
van de vorige informatie. 


Mirror /u 


Hiermee kan Mirror uit het geheugen wor- 
den verwijderd, waarbij het ‘deletion trac- 
king’-proces gestaakt wordt. Voorwaarde is 
wel dat er geen TSR-programma’s zijn gela- 
den na Mirror. 


Mirror /Partn 
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MS-DOS HELP: Survival Guide 


Editor Using the MS-DOS Editor: 


To exit Help, press Esc. 


Brousing the MS-DOS Editor Help systen: 


To activate the MS-DOS Editor menu bar, press Alt. 

To activate menus and commands, press the highlighted letter. 

To move between menus and commands, use the direction keys. 

To get help on a selected menu, command, or dialog box, press F1. 


AUTOEXEC . BAT 


Becho off 
cls 

PATH C:\Tmp\Bin:C:NEtc:C:\05 
LoadHi FastOpen C:=100 
LoadHi Share 

LoadHi DUIM 

LoadHi Append /x 
C:\OSNAppend C:\data\general 
Prompt [Sp] 










1 He lp> Pee: SALT to activate menus 





M5 


Deze optie zal een bestand met partitie-gege- 
vens van de harddisk op een diskette op- 
slaan. Als er dan iets fout gaat met de parti- 
tionering van de harde schijf, kan het UnFor- 
mat-programma met behulp van dit bestand 
de zaken herstellen. Omdat de partitionering 
van een harde schijf zelden wordt gewijzigd, 
hoeft dit in de regel maar één maal te gebeu- 
ren. 


UnDelete 


Met UnDelete kunnen verwijderde bestan- 
den worden teruggehaald. Als een bestand 
wordt verwijderd, bijvoorbeeld met het Del- 
commando, wordt alleen de entry van het be- 
stand in de directory als ‘gewist’ gemar- 
keerd. Het eerste teken van de bestandsnaam 
gaat hierbij verloren, maar de feitelijke gege- 
vens staan nog steeds op de schijf, totdat er 
nieuwe informatie overheen wordt geschre- 
ven. Met UnDelete kunnen gewiste bestan- 
den worden teruggehaald; hierbij moet het 
eerste teken van de naam worden ingetoetst. 
Indien het ‘deletion tracking’-systeem van 
Mirror is geïnstalleerd, is dit niet nodig. 


Het UnDelete-proces gaat dan ook niet altijd 
goed (bijvoorbeeld als na het wissen nieuwe 


bestanden zijn aangemaakt), maar met Mir- 


ror is dit proces veiliger. Vier opties kunnen 
aan UnDelete worden meegegeven: 


on 001 


UnDelete [Filename] ([/List | /A1l1] 
[/Dos | /DT] 


De List-optie laat alleen zien welke gewiste 
bestanden teruggehaald kunnen worden, 
maar onderneemt verder geen actie. Met 
/All worden gewiste bestanden terugge- 
haald zonder dat er om een bevestiging 
wordt gevraagd bij elk bestand. Een #-teken 
wordt als eerste letter van de bestandsnamen 
gebruikt, tenzij het Mirror-programma gela- 
den is. 


De Dos-optie maakt gebruik van de directo- 
ry-informatie die DOS altijd opslaat over ge- 
wiste bestanden, en maakt dus geen gebruik 
van de deletion tracking file. Met /DT ten- 
slotte wordt niet gevraagd om een bevesti- 
ging, en wordt de informatie uit het door 
Mirror bijgehouden bestand gehaald 


UnFormat 

Het UnFormat-programma kan worden ge- 
bruikt om schijven die met Format geformat- 
teerd zijn, te ‘on-formatteren’. Bovendien 
kan UnFormat de partitie-informatie die 
door Mirror is opgeslagen gebruiken om de 
partitie-tabel van een harde schijf te herstel- 
len. UnFormat kan op de volgende manieren 
gebruikt worden: 


UnFormat [/5] 


mmm 
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Hiermee kan worden gecontroleerd of het 
door Mirror aangemaakte bestand overeen- 
komt met de huidige status van de harde 
schijf. 


_UnFormat [/u] [/1] [/Test] [/p] 


De /u-optie on-formatteert de harde schijf 
„zonder gebruik te maken van de Mirror-in- 
formatie. De /1l-optie laat bovendien tijdens 
het proces alle bestanden en directories zien 
die te voorschijn komen. Met /Test kan wor- 
den bekeken hoe een schijf hersteld zou wor- 
den door UnFormat, zonder dat dit ook wer- 
kelijk plaatsvindt. Met /p wordt alle uitvoer 
naar de printer gerapporteerd. 





UnFormat ([/Partn]) [/1] 


Met /Partn kan een beschadigde partitieta- 
bel worden hersteld, mits tevoren met Mir- 
ror /Partn een speciaal bestand op diskette 
is bewaard. De /l-optie in combinatie met 
deze optie laat alleen de partitie-gegevens 
zien. 





SetVer 


SetVer maakt het mogelijk om programma’s 
die van een bepaalde DOS-versie afhankelijk 
zijn en bij het opstarten op die specifieke ver- 
sie controleren, te laten denken dat ook wer- 
kelijk die DOS-versie gedraaid wordt. Hier- 
toe wordt een tabel bijgehouden met pro- 
gramma's en de corresponderende DOS 
versie, die gebruikt wordt bij het opstarten 
van de applicatie. 











Het SetVer-programma wordt bij het opstar- 
ten door het Config.Sys in het geheugen gela- 
den, waarbij een aantal programma’s al in de 
lijst aanwezig is. Normaal gesproken zal het 
gebruik van SetVer niet noodzakelijk zijn. 





Nieuwe mogelijkheden van 
bestaande commando’s 

Veel bestaande commando's zijn uitgebreid 
met een aantal nieuwe opties. Zoals reeds ge- 
noemd kan nu bij elk commando hulp-infor- 
matie worden opgevraagd door middel van 
de /?-optie. We zullen de meest interessante 
hier noemen. 
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Allereerst is het meest gebruikte DOS-com- 
mando, Dir, flink uitgebreid. Er kan nu met 
behulp van diverse opties worden gesorte- 
erd, geselecteerd op bestandsattributen, en 
recursief gezocht worden naar bestanden. De 
opties zijn als volgt: 


Dir (FileSpec] [/p] [/w] [/a:Attrib] 
(/o:SortOrder) [/s] 
[/b] [/1] 


De eerste nieuwe optie is /a, waarmee naar 
files gezocht kan worden met bepaalde attri- 
buten. Attributen kunnen op de plaats van 
‘Attrib’ ingevuld worden, en zijn bijvoorbe- 


‚eld ‘h’ voor hidden of ‘d’ voor directories. 


Door een - teken tussen /a: en het attribuut 
te zetten wordt juist niet gezocht naar bestan- 


_den met dat attribuut. 


Sorteren van de bestanden kan gebeuren met 
/o, waarna de sorteer-volgorde kan worden 
aangegeven. Een aardige sorteermogelijk- 
heid is de letter ‘g’ waarmee directories eerst 
worden getoond, gevolgd door bestanden. 
Met ‘-g' is dit juist andersom. De /s-optie 
laat bovendien ook de bestanden in alle ‘on- 
derliggende’ sub-directories zien. Met /b 
wordt ‘bulk’-output verkregen; hierbij wor- 
den alleen de bestandsnamen getoond en 
geen overige informatie. Tenslotte worden 
met /l de bestandsnamen in kleine letters ge- 
toond. 


Met behulp van de DOS-variabele DirCmd 
kunnen opties permanent worden ingesteld, 
zodat ze niet bij elk Dir-commando opnieuw 
ingetypt hoeven te worden. Door de volgen- 
de regel op te nemen in uw Autoexec.Bat- 
bestand, geeft een Dir-commando in het ver- 
volg altijd een gesorteerde lijst van directo- 
ries gevolgd door bestanden, waarbij alles in 
kleine letters wordt gezet: 


Set DirCmd=/1/o:gn 


Ook het Format-commando heeft twee nieu- 
we opties, te weten: 

“_/q Formatteert een disk door enkel de 
FAT en de root-directory weg te halen, 
waarmee een winst kan worden bereikt 
van 80% op de formatteertijd. Voorwaar- 
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MS-DOS Shell 


File Options View Tree Help 
C:NBINNBC\CLASSL TBS INCLUDE 


CHR ENNLC : IRE EEE 


Directory Tree 
Eden 
[-] BIN 
[-] BC 
[ 1 BGI 
[ 1 BIN 
[-1 CLASSLIB 
[ 1 EXAMPLES 


ER INCLUDE 


[ 1 LIB 
[ 1 SOURCE 
[ 1 DOC 
[-] EXAMPLES 
[ 1 STARTUP 
[ 1 TCALC 
[—-] INCLUDE 
Lr 1 SYS 
[ 1 LIB 


F1i0=Actions Shift+F9=Command Prompt 


de is wel dat de disk reeds eerder gefor- 
matteerd is, en dat er geen bad sectors 
aanwezig zijn op de schijf; 


/u Formatteert een schijf, waarbij het on- 
mogelijk is om later met unformat de toe- 
stand te herstellen. Deze optie kan bij- 
voorbeeld gebruikt worden om schijven 
te formatteren waarop tijdens het gebruik 
fouten zijn ontstaan, of waarop betrouw- 
bare informatie heeft gestaan. 


Vanaf deze versie van DOS worden ook de 
nog weinig gebruikte 2.88 MegaByte 3.5 - 
schijven ondersteund. Zodoende wordt bij 
de /f:-optie van het Format-commando ook 
dit formaat herkend. 


Nieuwe Config.Sys-commando’s 
Drie nieuwe Config.Sys-commando’s zijn be- 
schikbaar in DOS 5: ‘DOS’ waarmee een ge- 
deelte van het systeem ‘hoog’ geladen kan 
worden, ‘DeviceHigh’ waarmee hetzelfde 
met device-drivers kan worden gedaan, en 


‘Switches’ waarmee een enhanced keyboard 


een standaard keyboard kan emuleren. 


Het DOS-commando kan worden gebruikt 


| 


[Y:] 


C:NBINNBCNCLASSL TBN INCLUDEN» . « 


ABSTARRY. 
ARRA Y 
ASSOC 
BAG 
CLSDEFS 
CLSTYPES. 
COLLECT 
CONTAIN 
DBLLIST 
DEQUE 
DICT 
DLSTELEM. 
HASHTBL 
LDATE 
LIST 
LSTELEM 


8,224 
5,708 
£,180 
2,284 
2,406 
5,843 
3,401 
5,369 
3,273 
3,856 
3,325 
2,012 
7,268 
2,853 
5,943 
1,789 


02-13-91 
02-13-91 
02-13-91 
02-13-91 
02-13-91 
02-13-91 
02-13-91 
02-13-91 
02-13-91 
02-13-91 


02-13-91 È 
02-13-91 È 
02-13-91 È 
02-13-91 È 
02-13-91 É 
02-13-91 È 


ETET 


LTIME 11,542 02-13-91 





om een gedeelte van het DOS in de high-me- 
mory area (HMA) te laden. Er wordt boven- 
dien een verbinding gelegd tussen het ‘lage’ 
en het ‘hoge’ DOS, indien u de toevoeging 
‘UMB’ gebruikt: 


Device=HiMem. Sys 
DOS=High, UMB 
Voorwaarde is uiteraard dat de HiMem.Sys 


device-driver geladen is, die het hoog laden 
mogelijk maakt. Ter illustratie het verschil 
tussen het laag en hoog laden van DOS 5.0: 
door het ‘Dos=High’-commando in het Con- 
fig.Sys-bestand te zetten wordt de hoeveel- 
heid beschikbaar conventioneel geheugen 
vergroot van 577 kB tot liefst 623 kB: een 
winst van 46 kB! 


Het DeviceHigh-commando werkt hetzelfde 
als het Device-commando: 


Device=HiMem. Sys 
DOS=UMB 
DeviceHigh=Ansi.Sys 


Door gebruik te maken van dit commando 
kunnen device-drivers net als DOS hoog ge- 
laden worden, wat het conventionele 
geheugengebruik verder terugdringt. 
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> Backup Fixed Disk 
> Restore Fixed Disk 
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MS DOS Shell in grafische mode 


De DOS-Shell 

Net als DOS 4.0 beschikt ook DOS 5.0 over 
een gebruikersinterface genaamd DOS-Shell. 
Dit programma beschikt over menu’s, ven- 
sters en kan met de muis bestuurd worden. 
Vanuit DOS-Shell kan door directories wor- 
den gebladerd en kunnen programma’s wor- 
den opgestart. Nieuw is de mogelijkheid om 
twee of meer programma’s tegelijk in het ge- 
heugen te laden, waartussen gewisseld kan 
worden met Ctrl-Esc of Alt-Tab. 


Beschikbaarheid 


DOS 5.0 wordt meegeleverd met nieuwe 
computersystemen en is dus als zodanig niet 
los verkrijgbaar. Voor bezitters van oudere 
(vanaf versie 2.1) DOS-versies is een speciale 
upgrade-kit verkrijgbaar, waarmee het be- 
staande systeem wordt vervangen door ver- 
sie 5. Voor bedrijven die in één keer alle 
DOS-computers willen upgraden naar versie 
5.0 is een site-license agreement beschikbaar. 
Medio september wordt de Nederlands ver- 
sie van DOS 5 uitgebracht. 


Conclusie 

Het belangrijkste aan de nieuwe DOS-versie 
is waarschijnlijk de mogelijkheid om pro- 
gramma’s, device-drivers en vooral een deel 
van het systeem zelf hoog te laden, waar- 
door de hoeveelheid beschikbaar conventio- 
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neel geheugen vergroot wordt. Voorts is een 
aantal commando's gestroomlijnd en verbe- 
terd en de hulp-informatie is ook een welko- 
me aanvulling. We hebben tot dusver geen 
problemen met bestaande programmatuur 
ondervonden; het SetVer-programma kan in 
zulke gevallen ook uitkomst bieden. 


Besproken produkt: MS-DOS 5.0 Upgrade 
Prijzen (excl. BTW): 

f 229,-- voor de internationale versie 

f 249,-- voor de Nederlandse versie 
Informatie: Microsoft, Hoofddorp 02503-13181 
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Datastructuren in C++ 


In bijna elk programma worden ze wel gebruikt: datastructuren. Of het nu een gelinkte 
lijst van bestandsnamen betreft, een stack van waarden of een queue van jobs, steeds zal 
het vervelende werk van het schrijven van functies die betrekking hebben op deze data- 
structuren opnieuw moeten gebeuren. Dit artikel zal duidelijk maken hoe de voordelen 
van C++ kunnen worden aangewend om eenmaal geschreven code steeds opnieuw te kun- 
nen gebruiken. Naast de object-georiënteerde techniek van data-hiding, wordt ook generi- 
citeit behandeld, alsmede code hergebruik door middel van overerving. 





Natuurlijk maken we voor een gelinkte lijst 
in C++ gebruik van de class. Programma's 
die een lijst gebruiken hebben immers niets 
te maken met de interne implementatie, 
maar gebruiken de gedefinieerde interface 
van member-functies. We zullen eerst kijken 
wat de data-members van de class zijn. Zoals 
in de listing is te zien, bevat een gelinkte lijst 
twee pointers (Last en Cursor) naar een struc- 
ture Link. We houden de laatste Link bij, 
waarvoor geldt dat Last-Next gelijk is aan 
het eerste element, zoals in de definitie van 
First te zien is. 


class List 


{ 
private: 
struct Link 


{ 
eType e; 
Link *Next; 
Link(eType e) { e = Pp; 
Next = 0; 
} 


} *Last, *Cursor; 
int nElem; 


// 


Tevens houden we in ‘nElem’ bij hoeveel ele- 
menten de huidige lijst heeft. We zien dat de 





Link structure binnen de List-class gedefini- 
eerd wordt; dit houdt in dat Link buiten de 
scope van de List-class onzichtbaar is. Link 
heeft een data-element e en een pointer Next 
naar de volgende Link. Tevens heeft deze 
class een constructor, waarmee snel een 
nieuw Link-object kan worden aangemaakt. 


De class List heeft twee constructors; de eer- 
ste neemt geen argumenten en wordt daar- 
om de default constructor genoemd. Deze 
constructor initialiseert beide pointers Last 
en Cursor op nul, en zet bovendien de teller 
nElem op nul. De tweede constructor neemt 
een eType argument dat het eerste element 
aangeeft; de definitie van deze constructor 
staat niet in de class-definitie, maar in het be- 
stand List1.cpp. 


FPS sas 
public: 
List( ); 
List ( eType ); 


void AddHead( eType ); 
void AddTail( eType ); 
void Append( eType ); 
eType GetHead( ); 


int IsEmpty( ); 


void Reset ( ); 
eType operator () () ; 


int Length( ); 
}; 


We kunnen elementen zowel aan de kop als 
aan de staart van de lijst toevoegen, respec- 
tievelijk met de functies AddHead en 
AddTail. Het synoniem Append is beschik- 
baar voor AddHead. Terugvragen van een 
element kan alleen geschieden aan de kop, 
met de functie GetHead. We zouden welis- 
waar een functie GetTail kunnen schrijven, 
maar deze zou vanaf het begin van de lijst 


mn 
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moeten zoeken naar het laatste element wat 
niet erg efficiënt is. De GetHead-functie ver- 
wijdert het element aan de kop van de lijst 
en geeft het terug aan de caller. 


‚De functie IsEmpty kan gebruikt worden om 
te controleren of de lijst leeg is. De functie 
Length geeft de lengte van de huidige lijst, 
ofwel de waarde van de variabele nElem. 
Een bijzondere vermelding verdient de zoge- 
naamde iterator; deze functie, in de List-class 
geïmplementeerd als de operator(), geeft bij 
elke aanroep het volgende element in de lijst 
terug. Wordt het einde bereikt, dan geeft de 
iterator eenmaal nul terug, waarna weer van 
voren af aan wordt begonnen. Tussentijds 
kan de Reset-functie gebruikt worden om de 
aanwijzer naar de kop van de lijst te laten 
wijzen. Met een iterator kan dus eenvoudig 
door een lijst worden gewandeld. 


Generieke lijsten 

Genericiteit betekent dat een datatype (zoals 
een gelinkte lijst) in één keer gedefinieerd 
kan worden voor alle datatypen. Helaas 
biedt de huidige versie van C++ nog niet de 
mogelijkheid van genericiteit zoals Ada en 
Eiffel dat bieden, maar zal dit pas in de vol- 
gende versie mogelijk zijn. We moeten ons 
voorlopig dus behelpen met een lapmiddel. 


Maar we zitten niet zover van een generieke 
List-class af; we hebben immers eT ype als- 
pointer naar void (void*) gedefinieerd, zodat 
alle andere pointers naar dit type kunnen 
worden geconverteerd. Stel dat we een struc- 
tuur voor persoonsgegevens hebben, die er 
als volgt uitziet: 


struct Person 


{ 


char *Name; 
int Age; 
}; 


Nu kunnen we met inheritance (overerving) 
een nieuw datatype aanmaken, PersonList, 
dat gebaseerd is op een List maar rekening 
houdt met het Person type: 


class PersonList : public List 


public: 
void AddHead( Person *p ) 
{ List::AddHead( (void*)p ); } 





Person *GetHead( ) 
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{ 


return (Person*) 
List: :GetHead( ); 
} 


IL … 
ks 


PersonList p; 


We zien dus dat de member-functies niets an- 
ders doen dan een cast verzorgen van Per- 
son* naar void*, vice versa. Verder hoeven 
we niets te doen, wat op zich al een behoorlij- 
ke tijdswinst kan opleveren. Maar we kun- 
nen dit proces automatiseren: door slim ge- 
bruik te maken van de pre-processor, kun- 
nen we met enkele regels steeds een nieuw, 
afgeleid datatype introduceren dat van List 
afgeleid wordt. In dat geval zou een nieuwe 
class als volgt worden gedefinieerd: 


typedef Person *PersonPtr; 
gListDeclare (PersonPtr) ; 


gList (PersonPtr) p; 


Hierbij wordt gebruik gemaakt van twee ma- 
cro’s gListDeclare en gList, respectievelijk 
om een nieuw type te introduceren en een 
variabele van dat type aan te maken. De 
gListDeclare-macro maakt gebruik van de 
preprocessor-mogelijkheid om met ## twee 
strings aan elkaar te plakken (te stringizen), 
en doet in feite hetzelfde als we handmatig 
in het bovenstaande voorbeeld hebben ge- 
daan: 


fdefine gListDeclare (Type) \ 
class gList##Type : public List \ 
{\ 


public: \ 
void AddHead (Type t) \ 
{ List::AddHead( (void*)t); } \ 
Type GetHead() \ 
{ return Typel(lList::GetHead()); }\ 
}; 


Nu zal gListDeclare(PersonPtr) dus expande- 
ren tot ‘class gListPersonPtr : public List’ en- 
zovoort. Ofwel, die ene regel zorgt ervoor 
dat een compleet nieuw type wordt geïntro- 
duceerd. Dit is de beste simulatie van generi- 
citeit die we op dit moment in C++ kunnen 
realiseren. De generieke lijst is te vinden in 
het bestand glist1.h. 


Code-hergebruik 


We hebben nu dus een complete, werkende 
class voor een gelinkte lijst. We kunnen ele- 
menten toevoegen aan de voor- en achter- 
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kant, en elementen weghalen. Nu willen we een stack 
en een queue gaan implementeren, die echter intern 
veel gemeen hebben met een gelinkte lijst. Een stack 
heeft de AddHead- en GetHead-functies van een lijst, 
waarbij ze Push en Pop genoemd worden. Een queue 
heeft de functies Add Tail en GetHead, respectievelijk 
als EnQueue en DeQueue. Gelukkig biedt C++ ons de 
mogelijkheid stacks en queues te ontwerpen zonder 
veel moeite, en wel door ze beide van List af te leiden. 
Hierbij maken we gebruik van private inheritance; dit 
houdt in dat de members van de basis-class ‘vergeten’ 
worden, ze kunnen dus niet gebruikt worden met de 
afgeleide class. Dit wordt gedaan om een nieuwe inter- 
face te kunnen definiëren. Functies van List die we wel 
willen gebruiken in de afgeleide class, moeten we ex- 
pliciet noemen. De Stack-definitie wordt nu als volgt: 


class Stack : private List 


{ 
public: 


IL zaan 
void Push( eType p ) 

{ AddHead(p); } 
eType Pop() 

{ return GetHead(); } 


List: : IsEmpty; 
}; 


De definitie van een Queue-class gaat analoog. In de 
Stack-class wordt met ‘List::IsEmpty’ aangegeven dat 
van de List-class de IsEmpty-functie wel deel uitmaakt 
van de Stack-interface. Dus de functies AddHead, 
AddTail enzovoort kunnen niet gebruikt worden met 
een Stack, maar IsEmpty wel. 


Uit de voorbeelden van dit artikel blijkt dat C++ grote 
mogelijkheden biedt ten aanzien van code-hergebruik, 
een van de sterke punten van object-georiënteerd pro- 
grammeren. De sources zijn geschikt voor de Turbo en 
Borland C++ compilers, de meest populaire C++ com- 
pilers voor MS-DOS. Eveneens zijn ze getest met diver- 
se andere C++ compilers. 


// Listl.h 
// Linked list class 


#if 'defined LIST H 
{define LIST H 


// List 


Methods: 
AddHead 
AddTail == Append 
GetHead 
GetTail 
IsEmpty 


typedef void *eType; 


NN" 
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class List 
{ 
private: 
struct Link 
{ 
eType e; 
Link *Next; 
Link(eType p) { e = p; Next = 0; } 
} *Last, “Cursor; 
int nElem; 


public: 
List( ) { Last = Cursor = 0; nElem = 0; } 
List ( eType ); 
sList( }); 


// functions to add or remove items 


void AddHead( eType }; 

void AddTail( eType ); 

void Append( eType e ) { AddTail(e); } 
eType GetHead() ; 


int IsEmpty() { return Last==0; } 


void Reset (); // Reset iterator 
eType operator() ();// iterator 


int Length() { return nElem; } 
} 
tendif 


| // List1l.cpp 


// list class methods 
finclude “..\ADT\List1.h” 
#define First Last-Next 


List::List( eType p ) 
{ 
Last = new Link (p); 
First = Last; 
nElem = 0; 
Reset () ; 


// Destructor 
List::-List( } 
{ 

Link *p = 

while ( q 

{ 

q = p->Next; 
delete p; 
} 
} 


// List: :AddHead 

// Add a new element to the head of the list 
void List::AddHead( eType p ) 
{ 


Link *nw = new Link (p); 


Last, *q = Pp; 
) 


if ( Last } // list is not empty 
nw->Next = First; // insert before head 
First = nw; // make circular 

} 

else 


Last = nw; 
First = Last; 
), 
nElem++ ; 
Reset () ; 


// List::AddTail 
// Add a new element to the tail of the list 
void List::AddTail( eType p ) 
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if ( IsEmpty() ) 
AddHead (p) ; 

else 

{ 

Link *nw = new Link (p); 

nw->Next = First; 

Last = First = nw; 

nElem++; 

Reset () ; 


// List: :GetHead 
// Get & remove element at head of list 
eType List: :GetHead() 
{ 
if ( IsEmpty() } 
return 0; 


Link *get = First; 
eType p = get->e; 


if ( get == Last } 
Last = 0; 

else 
First = get->Next ; 


delete get; 
nElem--; 


return p; 


// List: :operator() 

// Walk through the list, returning the 

// next element at each subsequent call 
void *List::operator() () 


Link *p = Cursor; 


// determine next iteration value 


if ( Cursor && Cursor == Last }) 
Cursor = 0; 

else if ( Cursor == 0 } 
Cursor = First; 

else 


Cursor = Cursor->Next ; 


return p->e; 


// List: :Reset 

// Reset iterator 
void List: :Reset () 
{ 


Cursor = First; 


} 
// Stackl.h 


#if !'defined STACKI H 
#define STACK1 H 


finclude “..\ADT\Listl.h” 


class Stack : private List 


{ 
public: 
Stack () { } 
Stack( eType p ) : List(p) { } 


void Push( eType p ) { AddHead(p); } 
eType Pop() { return GetHead(); } 


List: : IsEmpty; 
int Depth() { return Length(); } 


}; 
tendif 
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// qStackl.h 
// Generic stack definition 


#if 'defined GSTACK H 
#define GSTACK H 


finclude “..\ADT\Stackl.h” 
#fdefine gStack (Type) gStack##Type 


#define gStackdeclare (Type) \ 
class gStack##Type : public Stack 
{ 


\ 

\ 

public: \ 
void Push(Type t) \ 

{ Stack::Push(eType(t)); } \ 

Type Pop () \ 
{ return Type(Stack::Pop()); } \ 
} 

tendif 

// Queuel.h 


#if !'defined QUEUE H 
#define QUEUE H 


#finclude “..\ADT\Listl.h” 
// Queue 

// 

// Methods: 


JN EnQueue 


// DeQueue 
1 IsEmpty 


class Queue : private List 
{ 
public: 
Queuel() { } 
Queue( eType p ) : List(p) { } 


void EnQueue( eType p }) 
{ List::AddTail(p); } 
eType DeQueue () 
{ return List::GetHead(); } 


List: : IsEmpty; 
}; 
tendif 


// gQueuel.h 
// Generic queue definition 


#if 'defined GQUEUE H 
#define GQUEUE H 


#finclude “..\ADT\Queue.h” 
tdefine gQueue (Type) gQueuektkType 


#fdefine gQueuedeclare (Type) 
class gQueue@f#Type : public Queue 
{ 


public: 
void EnQueue (Type t) 
{ Queue: :EnQueue(eType(t)); } 
Type DeQueue () 
{ return Type (Queue: :DeQueue()); } 


LLL 


} 
tendif 
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deel 2 


In de vorige DOS Special hebben we de grondbeginselen van het Windows-programme- 
ren behandeld. Er werd gesproken over de algemene opbouw van een Windows-program- 
ma en een overzicht gegeven van de verschillende soorten resources. We zullen in dit arti- 
kel wat dieper ingaan op het implementeren van enkele technieken, die voor Windows- 
programma’s kenmerkend zijn. De veelgebruikte dialog box zullen we behandelen, 


alsmede diverse controls. 


Resources 
Zoals in het vorige artikel al te lezen is, zijn 
de resources van een Windows-programma 


Resource Toolkit 


BACKGRNDSETTING 
HIGHSCORE 
HIGHSCORETABLE 


NSO" 70" 
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De Whitewater Resource Toolkit 


de bitmaps, menu'’s, fonts, icons etcetera 
waar het programma gebruik van maakt. Re- 
sources kunnen handmatig in een .RC-be- 
stand worden aangemaakt, maar het is ge- 
makkelijker gebruik te maken van een specia- 
le resource toolkit. Sommige resources zoals 
icons en mouse cursors kunnen alleen met 
een dergelijk hulpprogramma worden aange- 
maakt. We zullen ons in dit artikel beperken 


| tot het definiëren en het gebruiken van dia- 
log boxes. 








Dialog Boxes 

Dialog boxes zijn popup windows die een 
programma gebruikt om te communiceren 
met de gebruiker. Een bekende dialog box is 
de About box die in vrijwel geen enkel pro- 
gramma ontbreekt en die informatie geeft 
over de versie van het programma, de auteur 
enzovoorts. 


Er zijn twee soorten dialog boxes: Modal en 
Modeless. Modal is de meest eenvoudige ver- 
sie, en is het type van veel About boxes. Het 
verschil tussen Modal en Modeless dialog 
boxes is dat de eerste soort van de gebruiker 
verlangt dat hij eerst het dialoog afmaakt 
voordat met het programma verder kan wor- 
den gegaan. Modeless dialog boxes leiden 
hun eigen leven, zodat zo’n box niet afgeslo- 
ten hoeft te worden alvorens met het hoofd- 
programma verder gegaan kan worden. 


Het aanmaken van een Modal 
dialog box 


De definitie van een Modal dialog box staat 
in een resource-bestand. Deze definitie bevat 
markeringen voor zogenaamde controls; dit 
zijn objecten zoals tekst, list boxes en push 
buttons. Een bekende dialog box is het wind- 
ow dat getoond wordt om een bestand te 
openen. Hierin is naast tekst een list box te 
vinden met de beschikbare bestandsnamen 
alsmede push buttons voor ‘OK’ en ‘Cancel’. 
De volgende definitie zou dan in een .RC-be- 
stand komen te staan: 


Open DIALOG 10, 10, 150, 120 
STYLE WS _MODALFRAME | WS SY SMENU 
BEGIN 


al 
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LTEXT “&Name:”, IDC FILENAME, 
EDITTEXT IDC EDIT, ….…. sn Bestand openen 
LISTBOX, IDC LISTBOX, 


DEFPUSHBUTTON “&Open”, IDOK, .….…. Heksen: nn) 
END En Directory: c:\windows 
Hierin zijn de afmetingen en het uiterlijk van i Lj] 
de dialog box gedefinieerd en staan boven- 


dien de gebruikte controls zoals LTEXT, leesmij. bet 
networks. txt 


EDITTEXT, LISTBOX en DEFPUSHBUTTON printers. txt 





Bestanden: Directories: 





aangegeven. LTEXT geeft aan dat een bepaal- sysini txt 

de tekst links uitgelijnd moet worden weer- sysinid. bet 
sysiniJ. txt 

gegeven. EDITTEXT opent een klein venster- an Ek 


tje waarin een bestandsspecificatie kan wor- winini2. txt 
den ingevoerd. LISTBOX opent een venster 
met de beschikbare bestanden, terwijl DEF- 











PUSHBUTTON een default push button met 
de tekst ‘Open’ definieert. Het ‘&’ teken staat File Open Dialog 
vlak voor de letter waarmee de keuze ook ge- 

5 maakt kan worden in combinatie met de Alt- switch ( message ) 

u toets. In het voorbeeld staan puntjes waar BREE Wi COMMAND: 

‘ normaliter de afmetingen en lokaties van de switch ( wParam ) 

Ì controls zouden staan. case IDOK: 


.. Open bestand ... 
case IDCANCEL: 





Een voordeel van dialog boxes is dat het EndDialog( hDlg, FALSE }; 
Windows-systeem automatisch een groot REUEN: TROD 

deel van de interactie tussen het programma case IDC LISTBOX: 

en de gebruiker voor zijn rekening neemt. en td 
Het ontwerpen van een dialog box kan hand- break; 

matig gebeuren in een conventionele editor. } 


Eenvoudiger is het echter om gebruik te ma- 


ken van een speciale editor; een van de vele Het Windows-systeem zal bij het activeren 


tools die bij de Microsoft Windows SDK van de Op en-button via de main message 
’ (Software Development Kit) meegeleverd loop Rida IDOK-bericht bn de OpenDlg- 
wordt functie sturen. Op vergelijkbare wijze wor- 





Dialog: (untitled) (unnamed) 


In een dialog editor kunnen de controls met = 
File Edit Dialog Controls Tools Alignment Hel 
behulp van de muis eenvoudig naar de ge- AE SMN RNL EAANOIES MES NGDRENK, MEW itn 
E Seer Edese 
wenste positie van het venster worden ge- mr Ad geeld DD 
sleept zonder dat de exacte coördinaten wor- DN s 
den aangegeven. De toolkit zal dan zelf een 





bestand aanmaken met een definitie zoals bo- En 
ven gegeven, inclusief de juiste coördinaten. Rioht Text 
t Een ander voordeel van een dialog editor is 
dat het resultaat al tijdens de ontwerpfase te Centered Test 
zien is. ledere dialog box heeft een correspon- 
_derende dialog-functie met een eigen messa- Group 


_ge-afhandeling waar onder andere de berich- 
_ten van de controls terecht komen. Zo’n dia- 
_log-functie ziet er vaak als volgt uit: 


© Radio 


© Radio 


‚ BOOL FAR PASCAL OpenDlg( HWND hD1lg, 
| WORD message, 
WORD wParam, 


| LONG 1P ee 
{ in Een Dialog Editor met diverse controls 





prEN 
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den berichten van andere controls, zoals de 
LISTBOX, verzonden aan de dialog-functie. 
Nu het uiterlijk van de dialog box en de 
dialog-functie gedefinieerd zijn, kunnen we 
gaan kijken hoe het hoofdprogramma een 


dialog box aanmaakt. 


/* Start dialoog */ 
lpOpenDlg = MakeProcInstance( OpenDlg, 
hInst ); 
DialogBox( hInst, “Open”, 
hWnd, lpOpenDlg ); 
FreeProcInstance( lpOpenDlg }); 


Deze code wordt aangeroepen zodra de 
Open-optie uit het File-menu gekozen 
wordt. De MakeProcInstance-functie geeft 
een adres voor de OpenDlg-functie terug, 
die tijdelijk in lpOpenDlg (van het type FAR- 
PROC) wordt opgeslagen. Vervolgens wordt 
de dialog box geopend met de DialogBox- 
functie, en de controle gaat over naar de dia- 
log box. Als de gebruiker het dialoog beêin- 
digt, wordt lpOpenDlg met FreeProcInstance 
weer vrijgegeven. Dit proces wordt telkens 
na selectie van de Open-optie herhaald. 


Hieruit wordt het belangrijkste kenmerk van 
een Modal dialog box duidelijk: de controle 
wordt na het openen van de dialoog volledig 
overgedragen aan de dialog-functie. De 
meest dialog boxes zijn Modal, zoals de op- 
tie Pagina Layout uit het Document-menu 
van Windows Write. Dit in tegenstelling tot 
de Modeless dialog box, die we nu zullen be- 
handelen. 





Een Find Dialog 


| Het aanmaken van een Modeless 


dialog box 
Stel dat we een Find dialog box hebben om 
in bestanden op schijf naar een bepaalde te- 




















kenreeks te zoeken. We zouden het immers 
handig vinden als het venster zichtbaar blijft. 
Een Modeless dialog wordt in het .RC-be- 
stand anders gedefinieerd dan een Modal 
box, en zullen meestal een WM _POPUP-stijl 
krijgen. 

Het grootste verschil tussen een Modeless 
en een Modal dialog box is echter de manier 
van creatie en afsluiten. Een Modeless dialog 
box wordt namelijk gecreëerd met de Create- 
Dialog-functie in plaats van de DialogBox- 
functie. Bovendien wordt de dialoog afgeslo- 
ten door het aanroepen van de functie 
Destroy Window in de dialog-functie. 


lpFindProc = MakeProcInstance( FindDlg, 
hInst }); 
CreateDialog( hInst, “Find”, 
hWnd, 1lpFindDlg ); 


In de dialog-functie FindDlg die verder ver- 
gelijkbaar is met OpenDlg, wordt het sluiten 
van de dialoog als volgt behandeld: 


BOOL FAR PASCAL OpenDlg( HWND hDlg, 
WORD message, 
WORD wParam, 
LONG lParam }) 


switch ( message } 


case WM COMMAND: 
switch ( wParam } 


. andere mogelijkheden ... 

case IDCANCEL: 
DestroyWindow( hDlg ); 
return TRUE; 


break; 


} 


Een voordeel van Modeless dialog boxes is 
tevens dat er meer tegelijk kunnen zijn geo- 
pend, bijvoorbeeld om twee zoek-acties tege- 
lijk bij te houden. De optie ‘Zoeken naar’ uit 
het Zoeken-menu van Windows Write is een 
voorbeeld van een Modeless menu. Als dit 
menu geopend is kan men tussendoor naar 


het hoofdprogramma terugspringen door 


het edit-venster aan te klikken. 


Controls | 

Controls worden in veel dialog boxes ge- 
bruikt, maar kunnen uiteraard ook in regulie- 
re vensters gebruikt worden. Een control is 
een speciaal venstertje dat gebruikt kan wor- 
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check boxen en radio buttons 


den om een bepaald soort in- of uitvoer te 
verzorgen. Controls worden bestuurd door 
een control window functie, die door Wind- 
ows al is gedefinieerd. Dit betekent in de 
praktijk dat programma’s gebruik kunnen 
maken van een edit-window waarvoor 
slechts het definiëren van een edit-control 
noodzakelijk is, zoals in het Open-dialog ge- 
schiedde. 


Windows biedt o.a. de volgende ingebouw- 
de controls. 


Push-buttons, de bekende drukknoppen 
van Windows die vanaf versie 3.0 een 
drie-dimensionaal uiterlijk hebben. Een 
push-button kan een tekst bevatten of een 
afbeelding die meer informatie geeft over 
de aard van de button. De control-style 
die bij een push-button hoort, is 

BS _PUSHBUTTON; BS_DEFPUSHBUT- 
TON kan gebruikt worden om de default 
button aan te geven. 





Radio-buttons worden meestal in groe- 
pen geplaatst en geven de gebruiker de 
mogelijkheid precies één keuze te selecte- 
ren. Een radio-button wordt gekenmerkt 
door een kleine cirkel voor de tekst van 
de keuze. Indien een radio-button wordt 
geselecteerd, worden alle andere in de- 
zelfde groep automatisch gedeselecteerd 
en wordt de cirkel van de gekozen optie 
gevuld met een massief zwart rondje. De 
stijl van een radio-button heet 

BS RADIOBUTTON. 





Check boxes zijn aankruisvakken die zo- 
wel losstaand als in een groep gebruikt 
kunnen worden, en die individueel geko- 
zen kunnen worden. Check boxes wor- 
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den gekenmerkt door een vierkantje, 
waarin een kruisje verschijnt indien de 
optie momenteel geactiveerd staat. 

BS CHECKBOX is de stijl die men voor 
check boxes moet gebruiken. Door ‘Termi- 
nal Voorkeursinstellingen’ te kiezen uit 
het Instellingen-menu van het Windows 
Terminal-programma, kan men zien wat 
het verschil is tussen radio-buttons en 
check boxes. 

Edit controls kunnen in diverse vormen 
gebruikt worden; zowel enkele regels als 
meer regels kunnen ge-edit worden. Het 
laatste type-kan dus fungeren als een klei- 
ne tekst-editor zoals NotePad. Het Open- 
dialoogkader dat we al eerder hebben be- 
handeld, bevat een edit control om de be- 
standsspecificatie te kunnen invoeren. 
Edit controls kunnen met de stijlen 

ES LEFT en ES MULTILINE gecreëerd 
worden. 


Static controls zijn vensters die gebruikt 
kunnen worden om er tekst in weer te ge- 
ven. Tekst kan zowel links en rechts uitge- 
lijnd worden, door respectievelijk 

SS LEFT en SS RIGHT als stijl te gebrui- 
ken. 


List boxes zijn vensters die een lijst tekst- 
strings bevatten, waaruit een keuze kan 
worden gemaakt. Indien het venster te 
klein is om alle elementen te bevatten, 
kan de gebruiker met behulp van een 
scroll-bar door de lijst bladeren en een 
item selecteren. Een voorbeeld van een 
list box is het bestandsvenster van het 
Open-dialoogkader. De inhoud van een 
list box is niet statisch, maar kan gewij- 
zigd worden, bijvoorbeeld omdat de ge- 
bruiker een andere bestandsspecificatie 
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aangeeft. Een voorbeeld van list boxes 
kan gevonden worden in de optie ‘Letter- 
typen’ van het Windows Configuratie- 
scherm. Met LBS STANDARD wordt de 
stijl aangegeven van de standaard list 
box. Er bestaan speciale list boxes waar- 
mee meer elementen in een keer geselec- 
teerd kunnen worden, of die uit meer ko- 
lommen bestaan. 


Een combo box bevat ook een lijst van 
keuzen. Er zijn drie typen combo boxes: 
simple, drop down en drop down list 
combo boxes. Een simple combo box 
heeft een edit control als bovenste ele- 
ment, dat altijd getoond wordt. Daaron- 
der kan in een list box een aantal elemen- 
ten worden ‘gehangen’. Indien de gebrui- 
ker een woord intypt dat in deze lijst 
voorkomt, wordt deze automatisch als bo- 
venste element in de list box gezet. Bij een 
drop down combo box wordt deze lijst al- 
leen getoond als de gebruiker het drop 
down symbool aanklikt. Bij een drop 
down list combo box kan de gebruiker 
niet intypen wat hij wil, maar moet een 
keuze worden gemaakt uit de items uit 
de onderliggende list box. De optie ‘Inter- 
nationaal’ van het Configuratiescherm 
van Windows bevat diverse drop down 
combo boxes. Afgezien van de multi- 
kolom mogelijkheid kunnen aan combo 
boxes vele andere eigenschappen worden 
toegekend, zoals het sorteren van de ele- 
menten. 


Conclusie 


‚ Dialog boxes vormen een onmisbaar onder- 


deel van Windows-applicaties. De vele con- 

trols die een dialog box kan bevatten maken 

dit type venster een zeer veelzijdig hulpmid- 
del voor vele doeleinden. 
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Do What I Mean utility 


Het TSR-programma dat in dit artikel besproken wordt, vult een onvolledig ingevoerde 
bestandsnaam op de command-line aan tot een bestaande naam uit de huidige directory. 


[C:\]du im 
DWIM version 1.0 
Hotkey = Alt-—Z 


[C:\ltype info.txt 
De naam van de directory is N\Usr\LalondeSigP lan\Vol24Nr4sllorkShop\Notes\PS 


We typen achtereenvolgens in: 
CD \U <Alt-Z> \usr 

\La <Alt-2> \usr'lalonde 
\Sig <Alt-Z> 
NuolZ4 <Alt-Z> 
Nu <Alt-Z> 


\no <Alt-Z> 
\ps <Return> 


\usr\lalonde\sigplan 


\usr\lalonde\sigplankvol2ánrd 
\usrlalondeNsigplankvolZánr4\uorkshop 
\usr\lalonde\sigplan\volZ2ánr4uworkshop\notes 
\usr\lalonde\sigplan\volZánr4\uorkshop\notes\ps 


[C:\Icd <usr\lalonde\sigplanvolZánr4\uorkshop\notes\ps 


[C:NUSR\LALONDESS IGPLANNVOLZANR4WORKSHOP\NOTES\PS ] 


Het programma is resident, dus plaatst zich- 
zelf permanent in het geheugen, waarna het 
met een speciale toetscombinatie kan wor- 
den opgeroepen. Deze toetscombinatie is in 
het huidige programma Alt-Z. Het program- 
ma kijkt naar het laatst ingetypte woord, en 
probeert een bestands- of directorynaam te 
vinden die daarop lijkt. Wordt zo’n naam ge- 
vonden, dan wordt het irigetypte woord aan- 
gevuld. Zo kan met ‘TYPE Y’ plus Alt-Z een- 
voudig het bestand YRIIRVNS.TXT bekeken 
worden. 

De werking is vrij eenvoudig. Ik heb voor 
de implementatie van het hulpprogramma 
de Zortech C/C++ compiler gekozen, omdat 
deze TSR-mogelijkheden biedt in de stan- 
daard-library. De twee variabelen 
TSR HOTSHIFT en TSR_HOTSCAN definië- 
ren de de hot-key die in dit geval dus Alt-Z 
is. Met tsr_install() wordt het programma re- 
sident gemaakt. Indien DWIM voor de twee- 
de keer wordt uitgevoerd van de command- 
line, zal het programma zichzelf uit het ge- 
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heugen verwijderen met behulp van tsr_un- 
install(). Vermeldenswaardig is verder dat 
de KbdStuff-routine een string in de toetsen- 
bord-buffer stopt, na onder andere wat ge- 
manipuleer met far pointers. 


Met DWIM (Do What I Mean) kan eenvou- 
dig vanaf de root naar bijvoorbeeld de direc- 
tory \Document\Artikel\DWIM gespron- 
gen worden. Hiervoor typt men CD \D in, 
gevolgd door Alt-Z. Het DWIM-programma 
zal vervolgens de naam Document aanvul- 
len, waarna ‘\’ ingetypt wordt gevolgd door 
de letter ‘A’. Nogmaals Alt-Z levert op dat 
de naam ‘Artikel’ wordt gevonden, waarna 
return kan worden ingegeven, enzovoort. De 
huidige versie van DWIM vult alleen be- 
standsnamen aan die als eerste in de direc- 
tory-listing gevonden worden. Komt in dat 
geval niet de gewenste naam te voorschijn, 
dan kan gezocht worden met twee letters, en- 
zovoort. Indien slechts één bestand aanwe- 
zig is in de huidige directory, geeft DWIM 


DWIM 
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wen 


DWIM 


de naam van dat bestand ook als er geen beginletters 
zijn ingetypt. 

Het programma neemt na installatie ongeveer 20 K 
aan geheugenruimte in beslag, maar kan hoog geladen 
worden, bijvoorbeeld met LoadHi van QuarterDeck. In 
dat geval neemt DWIM geen conventioneel geheugen 
in beslag. Het DWIM-programma zou op diverse ma- 
nieren uitgebreid kunnen worden. Omzetten naar een 
andere compiler is mogelijk door gebruik te maken van 
een TSR-toolkit, zoals die in het public-domain circuit 
beschikbaar zijn. 


DWIM.C 

Do What I Mean TSR-programma voor hulp 
bij onvolledige bestandsnamen 
Compiler: Zortech C/C++ 

Gecompileerd met versie 2.1 */ 


.#include <disp.h> 
#Hinclude <tsr.h> 


/* Hot-key: Alt-2 */ 
int TSR HOTSCAN = SCAN Z; 
int TSR HOTSHIFT = ALT; 
/* Handtekening */ 
char tsr fprint{[20}) = “Do What I Mean”; 
extern int okbigbuf = 0; 


int Debug = 0; 
int Mode = POPONLY; 
struct FIND *£; 


/* Prototypes: */ 
unsigned char WhereX(), WhereY(), 
GetCharAt (int x,int y); 
void KbdStuff (chart) ; 
int IsValid(char), UnigqueMask (char*) ; 
int FindStrPos (char*,char*) ; 
char *FindFirst (char*), *FindNext () ; 


#define IdMsg “DWIM version 1.0" 
#fdefine HotKeyMsg “Hotkey = Alt-2” 


/* Hoofdprogramma: */ 
int main( int ArgC, char **ArgV } 
L 

int i; 

puts ( IdMsg ); 

puts ( HotKeyMsg ); 


= tsr install( Mode }); 


{ 
i = tsr uninstall(); 
puts (“\FDWIM uninstalled”); 


else 
puts (“Error”); 


/* Hoofdprogramma TSR: */ 
void popmain( void } 
char Typed[128}), searchStr[128]; 
zn 2, Jô 
unsigned char c, Xx, Y; 
char *FileName; 


disp open() ; 





/* Vorige positie op het scherm */ 
x = WhereX()-1; 
y = WhereY(); 


/* Controleer of huidige positie leeg is. 
* Als dit niet zo is, doen we verder niets 


*/ 


if ( GetCharAt( x+t1, y ) != ’ ’ } 
return; 


/* Indien vorige positie leeg, en er is maar 
* een entry in de directory, dan wordt die 
* bestandsnaam in de buffer gezet. 
sf 

if ( GetCharAt( x, y ) == / ' )} 


char *FileName = FindFirst( “*.*” ); 
if ( FileName } 


/* Er zijn bestanden */ 
char *SecondFile = FindNext( ); 
if ( SecondFile == 0 } 


/* Slechts een bestand - OK */ 
strlwr( FileName ); 
KbdStuff( FileName ); 
} 
} 


return; 


} 


/* Incomplete bestandsnaam aanvullen */ 
/* Haal nu het ingetypte woord op */ 
for ( i=x, j=0; 120 && 
IsValid(c=GetCharAt (i,y)); 
i= } 
Typed[j++] = c; 
Typed[j] = 0; 


/* Controleer of de naam uit te breiden is */ 
if ( 'j || Typed[0]=="\\’ II Typed[0]==':' ) 
return 0; 


/* Keer de inhoud om */ 
strrev( Typed ); 


/* Probeer een passende bestandsnaam 
te vinden */ 
strcpy( searchStr, Typed }; 
if ( strchr( searchStr, ’.’ ) }) 
strcat ( searchStr, “*” ); 
else 
strcat( searchStr, “*.*” ); 


FileName = FindFirst( searchStr ); 


/* Indien gevonden */ 
if ( FileName }) 


int Idx; 


/* Vanaf waar aanvullen? */ 
Idx = FindStrPos( Typed, FileName }; 


/* Plaats aanvullende tekens in de 
buffer van het toetsenbord */ 
strlwr( FileName ); 
KbdStuff( FileName+Idx ); 
} 
else 
sound click(); 


/* Huidige schermpagina: */ 
unsigned char Page () 


{ 


union REGS rs; 


mmniet 
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r.h.ah = 15; 
int86( Ox10, &r, &r ); 
return r.h.bh; 


} 


/* Huidige kolom cursorpositie: */ 
unsigned char WhereX() 
{ 

union REGS r; 

r.h.ah = 3; | 

r.h.bh = Pagel(); 

int86( Ox10, &r, &r ); 

return r.h.dl; 


/* Huidige rij cursorpositie: */ 
unsigned char WhereY () 
{ 

union REGS r; 

r.h.ah = 3; 

r.h.bh = Page(); 

int86( Ox10, &r, &r ); 

return r.h.dh; 


/* Plaats string in KBD buffer: */ 
void KbdStuff( char *Str }) 
{ 

LE A, Jr 

typedef int far *fip; 

fip Start, End, KbdBuffer; 


if ( (isstrlen(Str)) 16 ) 
i = 16; 


Start = (fip)MK FP (Ox40, OxlA); 
End = (fip)MK FP (Ox40,Ox1C); 
KbdBuffer =(fip)MK FP (Ox40,OxlE) ; 


*Start = OxlE; 
kEnd = OxlE + 2*i; 


for ( j=0; j<i; j++t ) 
KbdBuffer[j] = Str[j]; 


/* Controleer op geldige tekens */ 
int IsValid( char c ) 
{ 
return isalnum(c) || 
strehel Ps Niet, @ Ja 
} 


/* FindStrPos 


* 

* Vind de index in subStr vanaf waar 
* substitutie moet plaatsvinden. 

* FindStrPos(“\AU”, "AUTOEXEC. BAT") 

* geeft de waarde 2 

% 


int FindStrPos( char *Str, char *subStr }) 
{ 
int i 


strlen( Str ) - 1, 
j = i; 


= 15 
/* Indien string leeg, return 0 */ 
if ( Str == 0 )} 


return 0; 
while ( Str[i] !'= '\\/’ && 
Str[i] '= ’:’ && i> 0 ) 
i=; 
if ( i==0 && Str[i) '= ’\\’ && Str[i] '= 
return j - 1 + 1; 
else 
return j - ii; 


/* FindFirst 


* Zoek naar eerst voorkomende bestandsnaam 
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* Slaat ’.’ en “..” altijd over. 
__*/ 
char *FindFirst( char *Str }) 
{ 
char *Result = 0; 
f = findfirst( Str, FA DIREC ); 


if ( *(£f-name) == ’.’ 
Result = FindNext( ); 
else if ( £ ) 
Result = f-name; 


return Result; 


/* FindNext 
* Zoek naar de eerstvolgende entry na 
* een FindFirst-aanroep 
«/ 
char *FindNext ( j 
{ 


char *Result = 0; 
f = findnext( ); 


if ( *(f-name) == ’.’ } 
Result = FindNext( ); 
else if ( £ ) 
Result = f-name; 


return Result; 


/* GetCharAt 
* Geef het teken op positie (x,y) 
* van het beeldscherm 
*/ 
unsigned char GetCharAt( int x, int y ) 
{ 
return disp peekw( y, Xx ) & OxFF; 
} 
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Framework voor het schrijven van text-based programma's 


De komst van Turbo Pascal 6.0 was voor vele Pascal-gebruikers een verademing wat be- 

treft de gebruikersomgeving. Eindelijk konden dan ook zij genieten van resizable en ver- 
plaatsbare windows, muisondersteuning enzovoort. De 'look and feel’ van de populairste 
Pascal compiler was eindelijk op een aanvaardbaar niveau gekomen. De metamorfose die 
de IDE had ondergaan was geheel te danken aan het bij Borland zelf ontwikkelde frame- 


work TurboVision. 


TurboVision is een applicatie-framework, 
een geheel van objecten die het bij elkaar mo- 
gelijk maken een applicatie te voorzien van 
een aantrekkelijke gebruikersomgeving. De 
grootste voordelen van zo’n applicatie-frame- 
work zijn de afscherming van moeilijke im- 
plementatieprincipes en het hergebruik van 
code. Borland brengt nog een ander applica- 

tie-framework uit, ObjectWindows, waarvan 
u ook in deze DOS-Special een beschrijving 
vindt. 


OOP 


Een applicatie-framework zoals TurboVision 
is geschreven in object-georiënteerde code. 
Wanneer u deze techniek nog niet zo mees- 
ter bent raad ik u aan eerst het artikel uit de 
vorige DOS-Special over OOP in TP te lezen. 
Het gebruik van virtuele methoden dient u 
ook te begrijpen. In deze DOS-Special staat 
een artikel over het gebruik hiervan. 


OO 
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Event driven programming 

De twee belangrijkste zaken die TurboVision 
u biedt zijn window-support en het afhande- 
len van events. Dit afhandelen van events ge- 
beurt ook in uw oude interactieve program- 
ma’s. Op basis van de input die de gebruiker 
geeft maakt u beslissingen over het verdere 
verloop van het programma. Wanneer een 
gebruiker bijvoorbeeld te kennen geeft dat 
het programma verlaten dient te worden, 
dan roept u een procedure aan die deze af- 
handeling verzorgt. In uw programma staat 
dan bijvoorbeeld een procedure ‘GetInput’, 
die er alsvolgt uit kan zien: 


Procedure GetInput; 


Var K : Char; 
Quit : Boolean; 
Begin 
Quit :=False; 
Repeat 
K:=ReadKey; 
Case K Of 
'C’ : CopyFile; 
'D’ : DeleteFile; 
'E’ : EditFile; 
'M’ : MoveFile; 
'Q’ : Quit:= True; 
'V' : ViewFile; 
Until Quit; 
End; 


Zulke Case statements kunnen aardig com- 
plex en onoverzichtelijk worden. Wanneer 
aan een aantal voorwaarden voldaan moet 
zijn om een bepaalde procedure of functie 
aan te roepen is dit eerder het geval. Er zijn 
nog wel meer events te verzinnen dan alleen 
keyboard-invoer. Muishandelingen zijn na- 
melijk ook events. Event driven program- 
ming neemt u deze, en nog meer, moeilijkhe- 
den uit handen. 


Alle events worden afgevangen door Turbo- 
Vision en naar de juiste bestemming in de ap- 
plicatie gestuurd. Stel bijvoorbeeld dat u in 
Turbo Pascal twee windows geopend hebt 
waarvan de huidige het andere gedeeltelijk 
overdekt. Wanneer u de muiscursor nu op 
het onderliggende window plaatst en de lin- 
kerknop indrukt, dan wordt een event ge- 
stuurd naar het onderliggende window dat 
dit het huidige window wordt. Het window 
wordt nu dan ook in z’n geheel op het 
scherm gezet en niet meer overlapt door het 
andere window. 
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TApplication 

Om te laten zien hoeveel werk het frame- 
work TurboVision ons bespaart zullen we 
een voorbeeld geven dat een van de meest 
wezenlijke onderdelen van een TurboVision- 
applicatie in zich heeft. 


Program IntroInTV; 


Uses App; 
Type 
TMyApplication = Object (TApplication) 
End; 
Var 


MyApp: TMyApplication; 


Begin 
MyApp. Init; 
MyApp. Run; 
MyApp. Done; 
End. 


Dit ziet er allemaal niet zo schrikbarend uit, 
maar wanneer u deze code compileert en 
runt zult u zien wat de kracht van zo’n fra- 
mework als TurboVision is. Het resultaat is 
het volgende beeld. 





Alt-X Exit 


Om dit zelf voor elkaar te krijgen had u toch 
een aantal regels code meer nodig gehad dan 
deze twaalf, zeker wanneer u ook nog met 
een muis zou moeten werken. Wat u voor u 
ziet is een desktop met linksonderin op de 
statusline een message 'Alt-X Exit’. Wanneer 
u deze toetscombinatie gebruikt springt u uit 
het programma. Het enige wat u hiervoor ge- 
daan moet hebben is een object “TMyApplica- 
tion’ afleiden van ‘TApplication’, daar een in- 
stantie 'MyApp/’ van creëren die geïnitiali- 
seerd (Init), gerund (Run) en opgeruimd 
(Done) wordt. TApplication is een zeer be- 
langrijk object in de TurboVision object-hië- 
rarchie en wordt in elke TurboVision-appli- 
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catie gebruikt. U moet altijd een afgeleid ob- 
ject van TApplication creëren, die u zoals 
hier bijvoorbeeld TMyApplication kunt noe- 
men. Het object TMyApplication voegt niets 
toe aan de methoden en datamembers die zij 
van TApplication erft, zodat de message 
Run’ die 'MyApp’ zendt de functiebody van 
‘Run’ uit ‘TApplication’ zal activeren. In 
pseudocode ziet die body er alsvolgt uit: 


Repeat 
Get an event; 
Handle the event; 
Until Quit; 
Het zal u niet verbazen dat dit erg lijkt op de 


code die we eerder als voorbeeld gaven. 
'T Application’ is verantwoordelijk voor het 
afhandelen van de meeste events. 

Het initialiseren van een instantie van 
TApplication geeft dus een desktop met een 
statusline en een menubar. 


Views 

lets dat zichtbaar is op het scherm heet een 
view. Een view is altijd een object, in dit ge- 
val dus TApplication. Andere views zijn bij- 
voorbeeld dialog boxes en scrollbars. Een 
view kan een aantal subviews hebben, zoals 
in het geval van TApplication, waarna het 
een groep genoemd wordt. TApplication is 
de eigenaar van drie subviews, te weten de 
menubar, de statusline en de desktop. Dit 
heeft niets met een object-hiërarchie te ma- 
ken, het wil alleen zeggen dat TApplication 
het beheer heeft over deze drie views. Als u 
naar de object-hiërarchie van TurboVision 
kijkt ziet u dat TStatusLine rechtstreeks van 
TView is afgeleid, TMenuBar via TMenu- 
View en TDeskTop via TGroup is afgeleid 
van TView. 


Alles wat afgeleid is van TView, rechtstreeks 
of indirect, is een view. Wanneer een instan- 
tie van zo’n object wordt geïnitialiseerd zal 
dan ook iets op het beeldscherm verschijnen. 
Een instantie van TView zelf laat niets op het 
beeldscherm verschijnen. Het krijgt alleen 
het bezit van een bepaald deel van het 
scherm, hetgeen altijd een rechthoek is. 
TView is in het bezit van een virtuele Draw- 
methode. Omdat deze zelf niets doet moet 
Draw overschreven worden in afgeleide ob- 


jecten van TView. Merk op dat een subview 
ook weer een groep kan zijn. 


Mute object 


Objecten die niet zijn afgeleid van TView 

zijn mute objecten, hetgeen vrij vertaald 
‘stomme objecten’ betekent. Ze zijn niet zicht- 
baar op het scherm zodat u daar niet kunt 
zien waar zij mee bezig zijn. Mute objecten 
worden gebruikt om bijvoorbeeld de commu- 
nicatie met een randapparaat uit te voeren. 
Wanneer zij een melding willen maken van 
een resultaat van hun activiteiten moeten zij 
dat in een TV-applicatie altijd via een view 
doen. 


Statusline 

Nu is de statusline die TurboVision u ver- 
strekt bij het initialiseren van een instantie 
van TApplication natuurlijk niet één die uit- 
gebreid genoeg is. TV bezit gelukkig de mo- 
gelijkheid om de statusline uit te breiden met 
een aantal andere items. Wanneer we bijvoor- 
beeld windows zouden willen kunnen slui- 
ten, dan kunnen we dat via de statusline 
weergeven. We overschrijven de methode 
InitStatusLine uit TApplication en initialise- 
ren een nieuwe statusline. 


Program ShowStatusLine; 
Uses Objects, Drivers, Views, Menus, App; 


Const cmNewWin = 200; 


Type 
TMyApplication = Object (TApplicat ion) 
Procedure InitStatusLine; virtual; 
End; 


Procedure TMyApplication.InitStatusLine; 
Var R: TRect; 


Begin 
GetExtent (R) ; 
R.A.Y := R.B.Y - 1; 
StatusLine := New(PStatusLine, Init (R, 


NewStatusDef (0, SFEFF, 
NewStatusKey (' “Alt-X-Exit’ , kbAltX, 
cmQuit, 
NewStatusKey (’ “F4 New’ ,kbF4, cmNew, 
NewStatusKey (’ “Alt-F3- Close’, 
kbAltF3, cmClose, 
Nil)), 
Nil) 
)); 
End; 


Var 
MyApplication : TMyApplication; 
begin 
MyApplication.Init; 


OO nd 
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MyApplication. Run; 
MyApplication.Done; 
End. 





Let erop dat de overschreven methode Init- 
StatusLine virtueel moet zijn, omdat die dat 
in TApplication ook al was. De variabele R is 
nodig om de schermgrootte mee op te halen. 
De statusline wordt dan een regel boven de 
onderste regel geplaatst. Met het statement 
'StatusLine:=…’ wordt de eigenlijke statusli- 
ne gecreëerd. Deze statusline zal twee items 
hebben, namelijk 'ALT-X Exit’ en 'ALT-F3 
Close’. Wanneer met de linkermuisknop op 
de string 'ALT-X Exit’ gedrukt wordt zal het 
standaard-commando cmQuit geactiveerd 
worden. Ook het event ‘kbAltX’ zal dit ver- 
oorzaken, dus wanneer gelijktijdig Alt en X 
worden ingedrukt. Bij het aangeven van de 
string die op de statusline komt worden de 
characters die tussen tildes staan (-) met een 
grotere intensiteit weergegeven. De twee 
commando's cmQuit en cmClose zijn stan- 
daard aanwezig in TurboVision, maar we 
kunnen ook zelf commando’s toevoegen. In 
dit geval hebben we een nieuw commando 
cmNewWin in de declaratie van constanten 
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toegevoegd, die we in de statusbar gebonden 
hebben aan de toets F4 en de het statusline 
item ’F4 New’. 


Menubar 

Om al deze mogelijkheden ook vanaf de me- 
nubar te kunnen kiezen is het noodzakelijk 
om ook de methode InitMenuBar uit TAppli- 
cation te overschrijven. Het aanmaken van 
zo’n nieuwe menubar gaat ongeveer hetzelf- 
de in Z'n werk als het aanmaken van een 
nieuwe statusbar: 


Const cmFileOpen = 201 


Procedure TMyApplication.InitMenuBar; 
Var R: TRect; 


Begin 
GetExtent (R) ; 
R.B.Y := R.A.Y + 1; 
MenuBar := New (PMenuBar, Init (R, 
NewMenu ( 
NewSubMenu(’ “F“ile’, hcNoContext, 
NewMenu ( 


NewItem(’ “O-pen’, ’'F3’, kbF3, 

cmFileOpen, hcNoContext, 

NewItem(’ -N-ew/, ’F4’, kbF4, 
cmNewWin, hcNoContext, 

NewLine ( 

NewItem('E-xvit’, ’Alt-X’, kbAltX, 
cmQuit, hcNoContext, 

Ni1))))), 
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NewSubMenu (’ “W-indow’ , hcNoContext, 
NewMenu ( 
NewItem(’ -Neext’, ’F6’, kbF6, 
cmNext, hcNoContext, 
NewItem(’-Z-oom’, ’'F5’, kbF5, 
cmZoom, hceNoContext, 
Nil))), 
Nil) ) 


1): 
End; 


We hebben weer een nieuw commando cmFi- 
leOpen geïnitialiseerd. Ook hier wordt eerst 
de grootte van het scherm opgehaald, waar- 
na de menubar op de bovenste regel wordt 
geplaatst. Ook hier geldt dat de tekst tussen 
twee tildes highlighted op het beeldscherm 
komt te staan. Met NewSubMenu wordt al- 
lereerst een nieuw pulldown-menu ‘File’ aan- 
gemaakt. Deze heeft zelf aan menu’s ‘Open’, 
New’ en ‘Exit. ‘NewLine’ geeft aan dat er 
tussen de items ‘New’ en ‘Exit’ een streep 
komt te staan. Een ander submenu is ’Wind- 
ow’. Deze heeft als menu’s ‘Next’ en ‘Zoom’. 
Hier zijn weer twee standaard commando's 
van TurboVision gebruikt, cmNext en 
cmZoom. Het commando cmNext zorgt er- 
voor dat het volgende window het actuele 
window wordt. Het commando cmZoom 
geeft aan dat het actuele window het totale 
beeldscherm, behalve de menubar en de sta- 
tusline tot zijn beschikking krijgt. Ook hier 
zijn alle commando’s weer gebonden aan 

een aantal events. Het commando cmNext 
wordt geactiveerd door de toets F5 en na- 
tuurlijk door met de muis dit item aan te klik- 
ken. U dient dus in de declaratie van TMy- 
Application deze methode aan te geven en 
weer virtueel te maken. Door het polymorfis- 
tische gedrag van TurboVision zal automa- 


tisch deze InitMenuBar worden aangeroepen _ 


(in plaats van die uit TApplication). Verbaas 
u niet over ‘hcNoContext’. TurboVision 
maakt het u makkelijk om een context-gevoe- 
lige ‘help’ in te bouwen. Elke view kan dan 
een ‘help’ contextnummer krijgen, zodat het 
zoeken gemakkelijker wordt. De context 
‘heNoContext’ is een speciaal geval dat de 
huidige context niet verandert. Op deze help- 
functies zullen we hier niet verder ingaan. 


Windows 

Om buiten de door TApplication gegeven 
statusline, desktop en menubar andere views 
op het scherm te krijgen moeten we weer een 





of andere afgeleide van TView instantiëren. 
Om een window op het scherm te kunnen 
krijgen moeten we een object afleiden van 
TWindow. Een TurboVision window is weer 
een zeer ‘intelligent’ object. Het weet hoe het 
zichzelf moet vergroten, verkleinen, sluiten 
en verplaatsen. Om een window te kunnen 
openen moeten we in TMy Application een 
nieuwe methode aanmaken die een nieuw 
window kan openen. Omdat dit window pas 
geopend wordt wanneer een bepaald event 
plaatsvindt dat nog niet bekend is bij TV 
moet ook de methode HandleEvent uit TAp- 
plication overschreven worden. Deze was 
virtueel dus wordt dat nu weer. In deze nieu- 
we HandleEvent moeten we altijd de expli- 
ciete HandleEvent uit TApplication aanroe- 
pen door middel van het statement TApplica- 
tion. HandleEvent(Event);. Wanneer nu het 
commando cmNewWin wordt gegeven, dan 
wordt de methode New Window uit MyAp- 
plication uitgevoerd. Wanneer het comman- 
do een andere was dan cmNewWin wordt 
uit de methode gesprongen. Een nieuwe con- 
stante WinCount wordt geïnitialiseerd die 
bijhoudt hoeveel windows er geopend zijn. 


Const WinCount : Integer = 0; 
PDemoWindow = “TDemoWindow; 
TDemoWindow = object (TWindow) 

End; 


Procedure TMyApp.HandleEvent 
(Var Event : TEvent); 
Begin 
TApplication.HandleEvent (Event) ; 
If Event.What = evCommand then 
Begin 
Case Event.Command Of 
cmNewWin: NewWindow; 
Else 
Exit; 
end; 
ClearEvent (Event) ; 
End; 
End; 


Procedure TMyApp.NewWindow; 
Var 
Window: PDemoWindow; 
R: TRect; 
Begin 
Ine (WinCount) ; 
R.Assign(0, O0, 25, 6); 
R.Move (Random (60), Random(15)); 
Window := New (PDemoWindow, Init 
(R, ’ RandomWindow’ ,WinCount) ) ; 
DeskTop“. Insert (Window) ; 
End; 


In de methode NewWindow wordt allereerst 
de variabele WinCount met 1 verhoogd. De 
variabele R bevat de grootte en de plaats van 
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het te openen window, de plaats hier verkre- 
gen met random statements. Dan wordt het 
window geïnitialiseerd door de aanroep 
’Window:=New(..…)’. Het statement 
‘'DeskTop”.Insert(Window)’ is van groot be- 
lang bij het werken met TurboVision. Wat u 
hier doet is deze view op de groep 
‘DeskTop’ plaatsen. U kunt alle views op een 
groep zoals DeskTop plaatsen, waarna de 
groep de eigenaar wordt van die view. Die 
groep heet dan de eigenaar, terwijl de view 
de subview heet. Een handige eigenschap 
van deze methode is dat wanneer de eige- 
naar gesloten wordt deze meteen ook de de- 
structors aanroept van al zijn subviews. 


Dialog boxes 

De laatste soort views die we in dit artikel 
zullen bespreken zijn dialog boxes. Dialog 
boxes zijn, de naam zegt het al, bepaalde 
views die de communicatie tussen de gebrui- 
ker en het programma verzorgen. In een dia- 
log box kan een gebruiker bijvoorbeeld aan- 
geven welke file geopend moet worden of de 
preferences aangeven voor een bepaalde ap- 
plicatie. TurboVision biedt u het object TDia- 
log aan om een dialog box mee te maken. An- 
ders dan bij bijvoorbeeld TA pplication zal 
van TDialog niet een nieuw object worden af- 
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geleid, aangezien twee dialog boxes er wel 
anders uitzien, maar niet in gedrag van el- 
kaar verschillen (OOP!). We initialiseren 
weer een nieuw commando dat een bepaalde 
dialog box kenmerkt. In de menubar kunnen 
we dan een bepaald item toevoegen dat de 
dialog box op het scherm zou zetten. Een dia- 
log box wordt alsvolgt gedefinieerd: 


Uses Dialogs; 


cmNewDialog 203; 
Procedure TMyApplication.NewDialog; 
Var 
Dialog: PDemoDialog; 
R: TRect; 
Begin 
R.Assign(0, O0, 
R.Move (38, 10); 
Dialog := New(PDemoDialog, Init 
(R, ‘Demo Dialog’ )); 
DeskTop“.Insert (Dialog) ; 
End; 


40, 13); 


U zou in dit geval dus het Case statement 
van de eventhandler moeten uitbreiden met: 


cmNewDialog : NewDialog; 


en de methode NewDialog in het object TMy- 
Application moeten toevoegen. De enige ver- 
schillen met een window is dat een dialog 
box de grijze kleur heeft, niet te vergroten of 
te verkleinen is en geen nummer heeft. Een 
druk op de Esc-toets zorgt ervoor dat de dia- 
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log box weer verdwijnt. U ziet dat de dialog- 
box net als een window weer op de desktop 
geplaatst wordt. Dit is een voorbeeld van 

een non-modal dialog box, hetgeen wil zeg- 
gen dat de controle over de applicatie niet bij 
de dialog box ligt. Het is mogelijk dat een an- 
dere view weer actief wordt. Meestal zou u 
dat niet willen, zodat de makers van Turbo- 
Vision ook in een ander soort dialog box heb- 
ben voorzien, de zogenaamde modal dialog- 
box. U kunt nu niet naar een andere view 
gaan voordat de dialog box gesloten is. Het 
enige verschil in initialiseren van zo’n dialog 
box is het verschil van hoe de view op de 
desktop te zetten. In plaats van het statement 


DeskTop“.Insert (Dialog) ; 
schrijft u 


Control:=DeskTop“.ExecView (Dialog) ; 


Controls 

Nu onderhoudt de dialog box die we tot nu 
toe hebben ontworpen weinig communicatie 
met de gebruiker. Er is geen enkele mogelijk- 
heid tot interactie. TurboVision biedt u een 
aantal mogelijkheden waarop de gebruiker 
kan reageren. Een daarvan is het gebruik 
van buttons. Buttons worden in een dialog 
box geïnitialiseerd door een statement van 
de vorm: 


R.Assign(xl,yl,x2,y2); 
Dialog”. Insert (New (PButton, Init 
(R, ’naam’ , command, flag) ) ) ; 


U ziet dat net als bijvoorbeeld een window 
in de desktop werd geplaatst hier een button 
in de dialog box geplaatst wordt. De variabe- 
le R van het type ’TRect’ geeft weer de groot- 
te van de rechthoek aan. Het commando kan 
in dit geval een van de vooraf gedefinieerde 
zijn van TurboVision, zoals cmOK, cmCan- 
cel, cmYes of cmNo. Let wel, de button die 
het commando cmOK activeert hoeft niet de 
naam ‘OK’ te cmNo, al programmeert dat 
cmNo wel een stuk gemakkelijker. De flag 
die in dit geval meegegeven moet worden 
geeft aan of de button de default button is of 
niet. De flags bmDefault en bmNormal zijn 
de te gebruiken flags hier. Om in een dialog- 
box een OK button en een Cancel button toe 


te voegen hebben we dus de volgende code 
nodig: 


Procedure TMyApplication.NewDialog; 
Var Dialog: PDemoDialog; 


R: TRect; 
C: Word; 
Begin 
R.Assign(20, 6, 60, 19); 
Dialog := New(PDemoDialog, Init 


(R, ’Demo Dialog’ )); 
With Dialog” do 
Begin 
R.Assign(15, 10, 25, 12); 
Insert (New (PButton, Init 
(R, ’“OrK/! , cmOK,bfDefault))); 
R.Assign(28, 10, 38, 12); 
Insert (New(PButton, Init 
(R, ’Cancel’,cmCancel, bfNormal))); 


End; 
C := DeskTop“.ExecView (Dialog) ; 
Dispose (Dialog, Done); 

End; 


Aangezien de gebruiker nu nog geen moge- 
lijkheid heeft om keuzes weer te geven, er 
staan slechts twee buttons ter beschikking, 
zijn er in TurboVision mogelijkheden om in- 
voer van de gebruiker te verkrijgen. Belang- 
rijke daarvan zijn checkboxes en radiobut- 
tons. Deze objecten, TCheckBoxes en TRadio- 
Buttons, zijn beide afgeleid van het 
'abstracte’ object TCluster en verschillen dan 
ook niet veel van elkaar. Zoals u in de figuur 
ziet kunt u me beide een aantal voorkeuren 
aangeven. Van een serie radiobuttons kan en 
moet er maar een gekozen worden, terwijl 
dit aantal bij checkboxes niet aan een limiet 
of ondergrens gebonden is. Om in onze dia- 
logbox een aantal radiobuttons en check- 
boxes en radiobuttons toe te voegen hoeven 
we maar weinig te doen. Voor radiobuttons 
initialiseren we in de methode NewDialog 
een pointer B naar een view, die daarna als 
instantie van RadioButtons gaat fungeren. 
Merk op dat door het gebruik van polymor- 
fisme alle virtuele methoden die in TView 
zijn gedefinieerd, het type van de pointer 
van B, niet worden uitgevoerd. Door het sta- 
tement ’B:=New(PRadioButtons, Init(R,.…))’ 
wordt de body van de methoden die in het 
afgeleide object zijn gedeclareerd gebruikt, 
dus die in TCluster of TRadioButtons. Op 
elke plaats waar een base object verwacht 
wordt mag namelijk een afgeleid object ver- 
schijnen. Tijdens de executie van het pro- 
gramma wordt dan wel uitgezocht welke me- 
thode gebruikt moet worden. Voor de radio- 
buttons geldt hetzelfde. We verkrijgen dan 
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de volgende code voor het initialiseren van 
de dialogbox: 


Procedure TMyApplication.NewDialog; 
Var 

B: PView; 

Dialog: PDemoDialog; 

R: TRect; 

C: Word; 


Begin 
R.Assign(20, 6, 60, 19); 
Dialog := New(PDemoDialog, Init 
(R,‚ ’Demo Dialog’) ); 
With Dialog® do 
Begin 
R.Assign(3, 3, 18, 6); 
B:= New(PRadioButtons, Init (R, 
NewSItem(’ “V-ariabel’, 
NewSItem(' Vrasst’, 
Nil))) 


)); 

Insert (B) ; 

R.Assign(2, 2, 10, 3); 

Insert (New (PLabel, Init (R, 

'Grootte’, B))); 

R.Assign(22, 3, 34, 6); 

B:= New(PRadioButtons, Init (R, 
NewSItem(’ “L-angzaam’ , 
NewSItem(’ “Normaal, 
NewSItem(’ “S-nel’, 

Nil))) 

)); 

Insert (B) ; 

R.Assign(21, 2, 33, 3); 

Insert (New (PLabel, Init (R, 

'Snelheid’, B))); 

R.Assign(15, 10, 25, 12); 

Insert (New (PButton, Init (R, 

'sOrk’ , cmOKbfDefault))) ; 

R.Assign(28, 10, 38, 12); 

Insert (New (PButton, Init (R, 

' Cancel’ ,cmCancel,bfNormal)); 





End; 
C := DeskTop”“.ExecView(Dialog) ; 
Dispose (Dialog, Done) ; 

End; 


Input line 

Om de gebruiker via het toetsenbord data te 
laten invoeren hebben de makers van Turbo- 
Vision een object TInputLine toegevoegd. 
Het programmeren van zo’n inputline is ta- 
melijk complex, maar het gebruik van het ob- 
ject is zeer eenvoudig. Om de inputline in 
onze dialog box te plaatsen kunnen we weer 
de pointer B gebruiken die ook voor de radio- 
buttons is gebruikt. We moeten dan weer B 
als een nieuw type initialiseren, door hem als 
een pointer naar een InputLine te laten wij- 
zen. Dit gebeurt met de volgende opdrach- 
ten: 


R.Assign(3, 8, 37, 9); 

B:=New(PInputLine, Init(R, 128)); 

Insert (B) ; 

R.Assign(2, 7, 24, 8); 

Insert (New (PLabel, Init (R, 
'Totaalaantal’,B))) ; 
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Weer allemaal vrij simpel. Deze code komt 
in de methode NewDialog te staan, bijvoor- 
beeld na de initialisatie van de CheckBut- 
tons, maar natuurlijk voordat de dialog box 
getekend wordt. 


Andere mogelijkheden 

Buiten de hier besproken mogelijkheden om 
een dialog box op te vullen zijn er nog ande- 
re objecten. Het gebruik hiervan is hetzelfde 
als met bijvoorbeeld de inputline. Het object 
TStaticText schrijft een bepaalde string in de 
rechthoek die het ter beschikking krijgt. Een 
object van het type TListViewer biedt de ge- 
bruiker een één- of tweedimensionale lijst 
aan, waaruit de gebruiker items kan kiezen. 


Het gebruik van scrollbars, die TurboVision 
ook op andere plekken aan de programmeur 
kan bieden, wordt ook in dit object onder- 
steund. TListBox is een object dat afgeleid is 
van TListViewer. Het beheert een TCollec- 
tion van pointers naar strings. Een voorbeeld 
van een listbox is het file-selecteermenu in 
de IDE van Turbo Pascal 6.0. Ten slotte, een 
instantie van het type THistory geeft de ge- 
bruiker de mogelijkheid om eerder gegeven 
opties terug te halen uit een listbox. 


Voorbeeldprogramma 

Het voorbeeld programma bestaat uit alle on- 
derwerpen die in dit artikel besproken zijn. 
Er zijn twee dialogboxes in verwerkt, waar- 
van één een aboutbox is en één informatie 
van de gebruiker opvraagt. In deze laatste, 
die met F2 is op te roepen, worden radiobut- 
tons en een inputline gebruikt. De ingevoer- 
de data wordt in de methode AnalyseDialo- 
ginput geanalyseerd. Het programma is bui- 
ten het gebruik van TurboVision een 
voorbeeld van hoe efficiënt een TV-applica- 
tie met geheugen omspringt. U kunt met een 
gerust hart meer dan duizend windows ope- 
nen, door dit in de dialogbox aan te geven. 
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Program TurboVisionDemo; 


uses Crt, Objects, Drivers, Views, Menus, App, 


Dialogs; 

Const 
WinCount: Integer = 0; 
cmFileOpen = 100; 
cmNewWin = 101; 
cmNewDialog = 102; 
cmAbout = 103; 
WSmall = 21; 
HSmall = 5; 
WLarge = 30; 
HLarge = 10; 

Type 
DialogData = Record 

CheckBoxl, 


CheckBox2 : Word; 
InputLine : String[128]; 


End; 
TMyApplication = Object (TApplication) 
MyDialogData DialogData; 
W,‚H,AdjX : Integer; 


Constructor Init; 


Procedure HandleEvent (var Event: TEvent); 
Virtual; 

Procedure InitMenuBar; 

Virtual; 

Procedure InitStatusLine; 

Virtual; 

Procedure NewDialog; 

Procedure NewWindow; 

Procedure AnalyseDialogInput; 

Procedure About; 


End; 

PDemoWindow = “TDemoWindow; 
TDemoWindow = object (TWindow) 
End; 

PDemoDialog = “TDemoDialog; 
TDemoDialog = object (TDialog) 
End; 


Constructor TMyApplication.Init; 
Var R : TRect; 


Begin 
TApplication. Init; 
With MyDialogData Do 
Begin 
CheckBoxl1l :=0; 
CheckBox2 : =2 ; 
InputLine:=’ 10’ ; 
End; 
W:=WLarge; 
H:=HLarge; 
Randomize; 
GetExtent (R) ; 
AdjX:=R.B.Y-25; 
End; 


Procedure TMyApplication.HandleEvent 
(var Event: TEvent); 
Begin 
TApplication.HandleEvent (Event) ; 
If Event.What = evCommand 
Then 
Begin 
Case Event.Command Of 
cmNewWin: NewWindow; 
cmNewDialog: NewDialog; 


NN" 7 


DOS SPECIAL 3/91 


48 


cmAbout : About; 
Else 
Exit; 
End; 
ClearEvent (Event ) ; 
End; 


End; 
Procedure TMyApplication.InitMenuBar; 


Var R: TRect; 


Begin 
GetExtent (R) ; 
R.B.Y := R.A.Y + 1; 
MenuBar := New (PMenuBar, Init (R, NewMenu( 


NewSubMenu(’ “F“ile’, hcNoContext, NewMenu ( 
NewItem(’“O-pen’, ’F3’, kbF3, cmFileOpen, 
hcNoContext, 
NewItem(’' “Neew’, 'F4’, kbF4, cmNewWin, 
hcNoContext, 
NewLine ( 
NewItem(’'E-xvit’, ’Alt-X’, kbAltX, cmQuit, 
hcNoContext, 
Nil))))), 
NewSubMenu (’ “Weindow’, hcNoContext, NewMenu ( 
NewItem(’-Nvext’, ’'F6’, kbF6, cmNext, 
hcNoContext, 
NewItem(’“Z-oom’, ’F5’, kbF5, cmZoom, 
hcNoContext, 
NewItem(’“Dvialog’, 'F2’, kbF2, 
cmNewDialog, hcNoContext, 
Nil)))), 


NewItem(’ “A-bout’,’F1’,kbF1, cmAbout, hcNoContext, 
Nil)))) 
1): 


End; 

Procedure TMyApplication.InitStatusLine; 
Var R: TRect; 

Begin 


GetExtent (R) ; 
R.A.Y := R.B.Y - 1; 


StatusLine := New(PStatusLine, Init (R, 
NewStatusDef (0, SFEFF, 
NewStatusKey (’ ’, kbF10, cmMenu, 


NewStatusKey (' “Alt-X- Exit’, kbAltX, 
cmQuit, 

NewStatusKey (’ “F4 New’, kbF4, cmNewWin, 

NewStatusKey (’ “Alt-F3- Close’, kbAIltF3, 
cmClose, 

Nil)))), 

Nil) 
1); 

End; 


procedure TMyApplication.NewWindow; 


Var 
Window: PDemoWindow; 
R: TRect; 
Begin 
Inc (WinCount) ; 
R.Assign(0, O0, W‚, H); 
If MyDialogData.CheckBoxl = 0 
Then 
R.Move (Random(51l), Random(14+AdjX)) 
Else 
R.Move (Random(60), Random(19+AdjX)) ;. 
Window := New(PDemoWindow, Init ( 
R, ’Demo Window’, WinCount)); 
DeskTop“. Insert (Window) ; 
End; 


Procedure TMyApplication.NewDialog; 











Var 
B: PView; 
Dialog: PDemoDialog; 
R: TRect; 
C: Word; 


Begin 
R.Assign(20, 6, 60, 19); 
Dialog := New(PDemoDialog, Init 
(R, ’Demo Dialog’ )); 
With Dialog” do 
Begin 

R.Assign(3, 3, 14, 5); 

B:= New(PRadioButtons, Init (R, 
NewSItem(’ -G-root', 
NewSItem(’ -K-lein’, 

Nil) ) 

1); 

Insert (B) ; 

R.Assign(2, 2, 10, 3); 

Insert (New(PLabel, Init (R, ’Grootte’, B))); 

R.Assign(22, 3, 36, 6); 

B:= New(PRadioButtons, Init (R, 
NewSItem(’ -L-angzaam’ , 
NewSItem(’ “N-ormaal’ , 
NewSItem(’' “S-nel’, 

Nil))) 

)): 

Insert (B) ; 

R.Assign(21, 2, 33, 3); 

Insert (New (PLabel, Init(R, ‘Snelheid’, B))); 

R.Assign(15, 10, 25, 12); 

Insert (New (PButton, Init (R, 

Ok’, cmOK, bfDefault))); 

R.Assign(28, 10, 38, 12); 

Insert (New (PButton, Init (R, 

'Cancel’, cmCancel, bfNormal))); 

R.Assign(3, 8, 37, 9); 

B:=New(PInputLine, Init(R, 128)); 

Insert (B) ; 

R.Assign(2, 7, 24, 8); 

Insert (New(PLabel, Init (R, 

'Totaal aantal’,B))); 
End; 
Dialog”“.Setdata (MyDialogData) ; 
C := DeskTop“.ExecView (Dialog) ; 
If C <> cmCancel 
Then 
Begin 
Dialog”.GetData (MyDialogData) ; 
AnalyseDialogInput; 
End; 
Dispose (Dialog, Done); 
End; 


Procedure TMyApplication.AnalyseDialogInput; 


Var TotalWindows, 
1 : Integer; 
Delayer LongInt ; 


Begin 
Val (MyDialogData.InputLine, TotalWindows, i) ; 
If i <> 0 Then NewDialog; 
Delayer:=2 —- MyDialogData.CheckBox2 ; 
If MyDialogData.CheckBoxl = 0 
Then 
Begin 
W:=WLarge; 
H:=HLarge; 
End 
Else 
Begin 
W:=WSmall; 
H:=HSmall; 
End; 
For i:=l To TotalWindows Do 
Begin 
NewWindow; 
Delay (Delayer*300) ; 
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End; 
End; 


Procedure TMyApplication. About; 
Var 


Dialog: PDialog; 
Control: PView; 


R: TRect; 
C: Word; 
Begin 


R.Assign(0, O0, 38, 13); 
Dialog := New(PDialog, Init (R, ‘About’)); 
With Dialog“ Do 
Begin 
Options := Options or ofCentered; 
R.Grow(-1, =-1); 
Dec(R.B.Y, 3); 
Insert (New(PStaticText, Init (R, 


#13 + 

AC’ Demoprogram TurboVision’#13 + 
#13 + 

AC’ (C) DOS-Special, juni 1991 ’#13 + 
#13 + 

ki version 0.98 ’))); 


R.Assign(5, 8, 33, 12); 
Insert (New(PButton, Init (R, ’O-K’, cmOk, 
bfDefault))) ; 
End; 
C:=Desktop”“.ExecView (Dialog) ; 
Dispose (Dialog, Done) ; 


| End; 


Var 
MyApplication: TMyApplication; 


Begin 
MyApplication. Init; 
MyApplication. Run; 
MyApplication.Done; 

End. 
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De overstap naar Clipper 5.0 


Wie in dBase programmeert, weet waarschijnlijk dat de afgelopen september gelanceerde 
Clipper 5.0 een zeer krachtige versie van deze taal is. Maar door de vele complexe moge- 
lijkheden van Clipper 5.0 bent u er misschien nog niet toe gekomen de overstap te maken. 
En inderdaad, om goed gebruik te maken van alle nieuwe mogelijkheden van deze nieu- 
we compiler, moet er totaal verschillend tegen dBase-programmeren worden aangekeken. 
Is dat de moeite waard? Ik denk van wel, en ik zal in dit artikel duidelijk maken waarom. 


Het belangrijkste argument is dat Clipper 5.0 
programma’s sneller, flexibeler en meer mo- 

dulair maakt. Laten we beginnen met modu- 
lariteit. Ter illustratie het volgende fragment: 


FOR i = 1 TO 100 
DO MyProc 
NEXT 


Hoevaak wordt MyProc aangeroepen? Nee, 
geen 100 keer. Het antwoord is dat het niet 
te bepalen is. In standaard dBase (en dus ook 
Clipper Summer ’87) is de variabele i zicht- 
baar binnen alle procedures. Indien MyProc 
de waarde van i verandert zou de For/Next- 
loop volledig worden ontregeld. 


Clipper 


Dit wordt veroorzaakt doordat standaard 
dBase variabelen dynamisch creëert. De le- 
vensduur van variabelen duurt totdat ze ex- 
pliciet vrijgegeven worden of totdat de mo- 
dule waarin de variabele werd aangemaakt, 
beëindigd wordt. Weliswaar kan een module 
het PRIVATE-commando gebruiken om zijn 
variabelen te verbergen voor de aanroepen- 
de routine, maar deze routine kan niet con- 
troleren of de module dat inderdaad heeft ge- 
daan. 


| Hieruit volgt dat in dBase een van de hoofd- 


principes van modulair programmeren ge- 
weld wordt aangedaan: een module mag 











geen onverwachte neveneffecten hebben in 
andere delen van het programma. Of, anders 
gesteld, elke willekeurige procedure of UDF 
(user-defined function) kan interfereren met 
andere procedures of functies. 


Lexicale scoping 

Clipper 5.0 verbetert dit door gebruik te ma- 
ken van lexicale scoping. Het concept hier- 
van zal bekend zijn aan C- en Pascal-pro- 
grammeurs. Variabelen die lexicaal ‘gesco- 
ped’ zijn worden aan de compiler bekend 
gemaakt en hebben een vastomlijnde scope 
(zichtbaarheidsgebied) en levensduur. In 5.0 
wordt dit bereikt met twee nieuwe storage 
classes: local en static. 


Een lokale variabele is alleen zichtbaar bin- 
nen de functie die de variabele declareert. 
Dus indien we bovenstaand fragment als 
volgt herschrijven: 


LOCAL 1 


FOR i = 1 TO 100 
DO MyProc 
NEXT 


dan kan MyProc niet aan de variabele i ko- 
men, ook al wordt binnen MyProc ook een 
variabele i gebruikt. 


Het LOCAL statement reserveert geen ruim- 
te voor de variabele i, maar geeft een specia- 
le betekenis aan de naam van de variabele. 
De variabele wordt gecreëerd zodra de func- 
tie waarin hij wordt gedeclareerd begint, en 
houdt op met bestaan zodra die functie dat 
doet. 


Een STATIC variabele heeft dezelfde scope 
als een LOCAL, maar blijft tussen de functie- 
aanroepen door wel bestaan, en behoudt dus 
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Niet alle gelijken zijn gelijk 


Clipper ondersteunt nu drie verschillende 
gelijkheidsoperatoren: de enkele operator 
(=>), te gebruiken voor zowel toekenningen 
en vergelijkingen; de dubbele operator (==), 
alleen te gebruiken voor vergelijkingen; en 
de := operator, te gebruiken voor in-line toe- 
kenningen. 

Een in-line toekenning is verschillend 
van een reguliere toekenning omdat een in- 
line toekenning een resulterende waarde op- 
levert. Dus a:=b maakt niet alleen a gelijk 


zijn waarde. STATIC variabelen die voor de 
eerste functie of procedure in een .PRG-be- 
stand worden gedeclareerd, hebben dat be- 
stand als hun scope. (Wees hier voorzichtig 
mee; de compiler genereert immers automa- 
tisch een main procedure bovenin de source- 
file. Om statische variabelen met een scope 
van het gehele bestand te gebruiken, moet 
men compileren met de /N-optie.) 

Tijdens de declaratie kunnen nu ook waar- 
den aan lokale en statische variabelen wor- 
den toegekend: 


LOCAL VarA := 100, VarB : 
STATIC VarC := 10, VarD : 


Cmonth (Date ()) 
“Hallo” 


(Indien u nog niet bekend bent met de := ope- 
rator, lees dan het tekstkader ‘Niet alle gelij- 
ken zijn gelijk’) Bij lokale variabelen wordt 
de waarde berekend tijdens het draaien van 
het programa (at run-time) en hier mag dus 
elke geldige Clipper-uitdrukking worden ge- 
bruikt (dit geldt ook voor public en private 
variabelen). Statische variabelen worden ge- 
creëerd en dus geïnitialiseerd tijdens compi- 
latie, waaruit volgt dat de waarde moet be- 
staan uit constanten of eenvoudige uitdruk- 
kingen die de compiler kan evalueren. 


‚Ook kunnen er lokale parameters in één pro- 
‚cedure of functie gebruikt worden: 


‚ FUNCTION MyFunc (x,y,z) 
of 


PROCEDURE AnyProc (Paraml, Param2) 
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aan b, maar de gehele uitdrukking krijgt ook 
nog eens deze waarde. Dit betekent dat een 
in-line toekenning gebruikt kan worden zo- 
als de volgende voorbeelden illustreren: 


:=10 

‚=(a:=b) * 5 && a==10, c==50 
=sq:=r:=100 && alledrie 100 
Vandaag: =Date () 


ee ez 


Nantucket adviseert om in het vervolg := 
voor alle toekenningen te gebruiken, en == 
voor alle vergelijkingen. De = operator 
wordt alleen voor compatibiliteit met be- 
staande toepassingen ondersteund. 


Natuurlijk kan ook de oude manier met het 
PARAMETER-commando nog gebruikt wor- 
den, maar hierbij worden private in plaats 
van lokale parameters gecreëerd. De twee 
methoden kunnen niet binnen een procedure 
of functie tegelijk gebruikt worden. 


Lexicale scoping maakt het ook eenvoudiger 
om functies te schrijven die optionele of de- 
fault argumenten hebben. Beschouw bijvoor- 
beeld een functie Mess die een bericht af- 
drukt, met coördinaten die optioneel zijn. 


Bijvoorbeeld: 

Mess (MyMessage) 

voor de default coördinaten, en 
Mess (MyMessage, 23, 50) 


voor een bericht met coördinaten 23 en 50. 


Om dit te kunnen doen, moeten we de func- 
tie Mess als volgt laten beginnen: 


FUNCTION Mess (message, r,c) 
MessRow := IF (r==NIL,24,r) 
MessCol := IF (c==NIL,0,c) 


Indien de aanroepende routine een argu- 
ment weglaat, krijgt de corresponderende pa- 
rameter de waarde NIL. De aangeroepen rou- 
tine kan hierop testen zoals te zien is in het 
voorbeeld. Merk op dat NIL zowel een waar- 
de als een data-type is. Lokale en statische 
variabelen hebben het type NIL totdat hun 
een waarde wordt toegekend (waaruit dan 
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ook het type kan worden afgeleid). 


Naast het verbeteren van modulariteit, heb- 
ben variabelen met lexicale scoping nog een 
ander groot voordeel: ze zijn veel efficiënter. 
Tijdens uitvoering van het programma zijn 
al hun namen reeds door de compiler gecon- 
verteerd naar adressen, dus het run-time be- 
sturingsprogramma hoeft niet in tabellen te 
zoeken naar hun waarden. Dit kan een op- 
merkelijke tijdwinst opleveren! Een eenvou- 
dige benchmark (listing 1) laat zien hoe het 
vervangen van PRIVATE door LOCAL varia- 
belen een 37% verbetering in executie-tijd op- 
levert. | 





Indien u besluit om over te stappen op loka- 
le en statische variabelen, zijn er enkele pun- 
ten om op te letten. De functie Type() kan 
niet met dergelijke variabelen gebruikt wor- 
den (in plaats hiervan moet ValType() ge- 
bruikt worden), en ook ReadVar() kan niet 
worden gebruikt. Bovendien kunnen ze niet 
in .MEM-bestanden bewaard worden, kun- 
nen hun namen niet voor macro-substitutie 
worden toegepast. Als hun namen wel be- 
kend moeten zijn aan de debugger, moet de 
/B compiler-switch worden gebruikt. 


Arrays 

Lexicale scoping heeft ook implicaties voor 
arrays. Een array kan als local of static gede- 
clareerd worden: 


LOCAL Arr1[100], Arr2[10,2] 
STATIC Arr3[5] 


Natuurlijk blijven public en private arrays 
ondersteund. Het DECLARE-commando kan 


nog steeds gebruikt worden om een private 


array te definiëren, maar Nantucket raadt dit 
af. 








Op het eerste gezicht lijken arrays in 5.0 wat 
verwarrend, met name omdat ze afwijken 
van de conventies die in andere talen ge- 
bruikt worden. Het helpt wellicht om drie 
punten te onthouden. Ten eerste is een array 
een data-type op zichzelf. De functie ValTy- 
pelArr1) keert dan ook “A” (voor Array) te- 


rug, ongeacht de typen van de individuele 


elementen. 


Zoals met de meeste andere data-typen kan 
de waarde van een array eveneens als een 
constante worden weergegeven: 


LOCAL WorkDays[5] := 


{ “Ma , n \ Di JI n “Wo VL p A Do 1 p NV r VLA } 
MyArray := { 5, 10, 15, 20 } 
Result := MyArray[2] * 


{ 100, 150, 250 }[3] && geeft 2500 


Accolades worden gebruikt om de waarden 
mee af te bakenen, en rechte haakjes voor in- 
dexeringen. Zoals het laatste voorbeeld laat 
zien is het geen probleem een array ‘on the 
fly’ aan te maken en te indexeren. 


Arrays kunnen in Clipper 5.0 multi-dimen- 
sionaal zijn: 


LOCAL MultArray[4, 3] 


== { { “Winter”, “Lente”, “Zomer”, 
“Herfst” }, 
{ 5, 10, 15, 20 }, 
l Er «Er aan ee } 


} 
> MultArray[3, 2] && drukt 15 af 


Eigenlijk is het enige verschil met andere ta- 
len het feit dat arrays elementen van verschil- 
lende datatypen kunnen bevatten. Maar in 
Clipper 5.0 zijn multi-dimensionale arrays 
niet beperkt tot rechthoekige tabel-achtige 
structuren. Ze kunnen aanzienlijk complexer 
zijn. 


Om dit te begrijpen, moet het tweede punt in 
gedachten worden gehouden: arrays worden 
altijd ‘by reference’ behandeld. Een array-re- 
ferentie lijkt wel een beetje op een pointer. 
Hij kan in een variabele opgeslagen worden, 
als parameter worden meegegeven aan een 
functie en teruggegeven worden door een 
functie. Dus in het volgende statement: 


NewArray := OldArray 


ee 
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zal NewArray niet een kopie of kloon van 
OldArray bevatten, maar zullen beide varia- 
‚belen referenties bevatten naar dezelfde data. 


Omdat referenties in een variabele kunnen 
worden opgeslagen, kunnen ze natuurlijk 
‚ook in een array worden opgeslagen: 


| LOCAL Arrl{(4], Arr2[2] 


\Arrl[l] := “A 
Arr1[2] := “B” 
Arrl[3]) := “C” 
Arr2 := { “D1", ”D2" } 
Arrl{[4] := Arr2 


Dit is precies hetzelfde als: 
Arrl z= { MA”, NB’, il Sa { DL, „Dz } } 


Hier is een array niet langer een simpele ta- 
bel. Drie van de vier elementen bevatten 
strings, maar het vierde element een andere 
array. Op deze manier kunnen geneste struc- 
turen van willekeurige complexiteit opge- 
bouwd worden. 

Clippers array-referenties verschillen iets 
van pointers in C. In Clipper bestaat de array 
zo lang als er referenties bestaan. Zodra de 
referenties ophouden te bestaan, zal de ‘gar- 
bage collector’ van Clipper de ruimte van 

het array wederom vrijgeven. Ook zijn array- 
referenties onafhankelijk van het type van 
het array. Inderdaad, array-types zijn vrij zin- 
‚loos in Clipper. Je kunt niet echt spreken van 
arrays van strings of arrays van getallen. Ar- 
rays zijn van het type array. 





Clippers geneste arrays zijn duidelijk zeer 
krachtig, maar moeten met zorg worden toe- 
gepast. Om dit te illustreren: het is volledig 
legaal om Arr1[4,1] aan te spreken (hetgeen 
“DI oplevert), hoewel het array één-dimens- 
jonaal was. Maar bijvoorbeeld Arr1[1,1] le- 
vert een run-time foutmelding op. 

Met de dubbele gelijktekens kunnen twee ar- 
rays vergeleken worden: 


? NewArray == OldArray 


Dit levert alleen .T. op indien beide variabe- 
len (referenties) naar hetzelfde array in het 
geheugen refereerden. Er worden dus geen 
twee losstaande arrays met elkaar vergele- 
ken. Een ander subtiliteit: de ingebouwde 
ACopy0 en AClone() functies kopiëren bei- 
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de elementen van de ene array naar de ande- 
re. Als de source array sub-arrays bevat zal 
ACopy0 enkel referenties naar die sub-ar- 
rays kopiëren, terwijl AClone() de sub-arrays 
zelf zal kopiëren. 


Het derde belangrijke punt over arrays is dat 
ze helemaal dynamisch zijn, dat wil zeggen 
dat ze onder controle van het programma 
kunnen groeien en krimpen. De AAdd() 
functie voegt een enkel element toe aan het 
einde van een array, terwijl ASize() de lengte 
van een array verandert in een bepaald aan- 
tal elementen. 


Listing 2 laat een user-defined function zien 
die dynamisch een array creëert. De functie 
is een eenvoudige generieke database-zoek- 
functie, en geeft een lijst van record-num- 
mers terug van de records in de huidige data- 
base waarvan een bepaald veld een bepaalde 
waarde heeft. Het feit dat de teruggegeven 
waarde een array is geeft geen problemen - 
het is in feite een referentie. Om dezelfde re- 
den geeft het gebruik van arrays als parame- 
ters van UDF’s geen problemen. 


Clipper 5.0 bevat verschillende ingebouwde 
functies die op deze wijze betrekking hebben 
op arrays. DBCreate() creëert een database- 
structuur gebaseerd op een twee-dimensiona- 
le array met de namen, typen, lengten en aan- 
tal decimalen van de velden. DBStruct() doet 
het omgekeerde: deze functie geeft een array 
terug met alle veldinformatie. Tenslotte geeft 
Directory() een array terug met informatie 
over de bestanden in een directory. 


Code-blocks 


Een andere krachtige innovatie in 5.0 is het 
code-block, om user-defined commands mo- 
gelijk te maken. Het code-block is zelf echter 
ook een handig hulpmiddel, waarvan geen 
equivalent bestaat in de meeste andere pro- 
grammeertalen. 


Een code-block is een klein stukje uitvoer- 
baar programma-code, dat in een variabele 
kan worden opgeslagen, meegegeven kan 
worden als een parameter, teruggekeerd kan 
worden door een functie en in het algemeen 
zich kan gedragen als elk ander stuk data. 
Een code-block is dan ook een data-type, net 
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als een character-string of een datum. Het 
heeft eveneens de eigenschappen van een 
user-defined functie, en heeft ook wel iets 
weg van een macro, hoewel het geen van bei- 
de is. 


De formele syntax van een code-block is als 
volgt: 


{ |[argument list]| <EIXSO> 
list } 


Enkele voorbeelden: 


{ la,b‚cl 2*(atb)/2 } 

{ |ErrNol “Error number”+Str(ErrNo, 3) +; 
"detected" } 

{ Ip‚q,r| Funcl(p), Func2(q), Func3(r) } 

{ || MainFunc() | 


Zodra het code-block uitgevoerd wordt, 
wordt elke uitdrukking rechts van de vertika- 
le lijnen geëvalueerd, gebruik makend van 

de variabelen in de argumentenlijst. De waar- 
de van de meest rechter expressie wordt dan 
de waarde van het code-block zelf. Merk op 
dat de vertikale lijnen nodig zijn, zelfs als er 
geen argumenten zijn. Dit om een code- 
block van een array-constante te onderschei- 
den. 


Omdat code-blocks toegekend kunnen wor- 
den aan variabelen en meegegeven kunnen 
worden als parameters aan functies, is het 
volgende fragment toegestaan: 


MyBlock := { |a,bl MyFunc(a,b) } 
x := MyUDF( {la,bl MyFunc(a,b) } ) 


In geen van beide statements wordt het code- 
block uitgevoerd. Dit kan gebeuren met de 
ingebouwde functie Eval(), die als parame- 
ters het code-block heeft, gevolgd door de ar- 
gumenten: 


MessBlock := { |d| QOut ( “Vandaag: "; 
+CDOW (d) ) } 
EVAL (MessBlock, DATE () ) 


Dit zal er voor zorgen dat een bericht wordt 
afgedrukt met de dag van de week (De 
QOut-functie is vergelijkbaar met het “2” 
commando.) 


Code-blocks zijn verschillend van macro’s 














omdat ze tijdens compilatie worden gecom- 
pileerd, waardoor ze veel efficiënter zijn. Dit 
betekent ook dat ze toegang hebben tot varia- 
belen met lexicale scope. Om exact te zijn is 
de scope van local en static variabelen niet al- 
leen de functie of procedure die ze defini- 
eert, maar ook de code-blocks gedefinieerd 
binnen die functie of procedure. 

Waar kunnen we code-blocks toepassen? 

Een goed voorbeeld is het generaliseren van 
een functie of procedure. Normaal gespro- 
ken worden aan een UDF data meegegeven 
waarop vervolgens handelingen worden ver- 
richt. Met code-blocks kan van buitenaf de 
wijze waarop deze handelingen verricht wor- 
den, beïnvloed worden. 


Als voorbeeld een eenvoudige functie die in 
een array zoekt naar een opgegeven waarde, 
die als volgt gebruikt kan worden: 


IF Scan (Arrayl, "Lewis'") 
? “Gevonden” 
ENDIF 


De parameters voor Scan() zijn de namen 
van het array en de gezochte waarde. De 
functie keert .T. terug indien de waarde ge- 
vonden wordt. 

Het zou aardig zijn als we deze functie kon- 
den generaliseren, zodat in plaats van een 
exacte overeenkomst, ook gezocht kon wor- 
den met bijvoorbeeld een Soundex-overeen- 
komst, of onafhankelijk van hoofd- en kleine 
letters. Een manier om dit te bewerkstelligen 
zou kunnen zijn door een code mee te geven, 
die de zoek-methode zou aangeven. Maar 
hierbij zou elke nieuwe zoek-methode leiden 
tot een wijziging van de Scan-functie. 


Een betere oplossing is om de methode in 
een code-block mee te geven. Die wordt ver- 
volgens aan de UDF meegegeven net als elke 
andere parameter: 


Scan(Arrayl, { |xl 
Soundex (x) ==Soundex (“Lewis”) } ) 


of: 


Scan(Arrayl, { |xl “Lewis” $ x } ) 
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* LISTING 1 


* Kleine benchmark om local en private 
* variabelen met elkaar te vergelijken 


PRIVATE pl, p2:=1, pP3:=1 
LOCAL 11, 12:=1, 13:=1 
StartP:=Seconds() 


FOR pl=l TO 4000 

p2 += p3 
NEXT 
StartL:=EndP : =Seconds () 


FOR ll1l=1l to 4000 
12 += 13 

NEXT 

EndL: =Seconds () 


? "Tijden zijn als volgt:" 

ak Met private variabelen: '"; 
+STR (EndP-StartP, 5) 

gn Met local variabelen: "; 
+STR (EndL-StartL, 5) 

RETURN 


* LISTING 2 

FUNCTION GetRecs 

PARAMETERS fld, contents 

* Algemene database zoek-functie; geeft 
* recordnummers terug van elk record dat 
* voldoet aan de zoekvoorwaarde 


LOCAL recs := {} 
LOCATE FOR &fld. == contents 
DO WHILE found() 
AAdd(recs, Recno() ) 
CONTINUE 
ENDDO 
RETURN recs 


&& Leeg array 


1/ augustus 
Amstelhal 
RAI 


Amsterdam 


de ideale plek 

om goedkoop 

een computer 
aan te schaffen 
(of uit te breiden) 





Clipper 5.0 


* LISTING 3 
FUNCTION Scan(Ar,Blk) 
* Functie om in een array te zoeken naar 
* een bepaalde voorwaarde. 
LOCAL á 
FOR i=1l TO Len (Ar) 
IF Eval(Blk,Ar[{i]) 
RETURN .T. 
ENDIF 
NEXT 
RETURN .F. 


* LISTING 4 
FUNCTION GetRecsl(fld, ConditBlk) 
* Gewijzigde generieke database zoek- 
* functie 
LOCAL recs := {} 
GOTO TOP 
DO WHILE .not. eof() 
IF Eval(ConditBlk, ld) 
AAdd(recs, Recno() ) 
ENDIF 
SKIP 
ENDDO 
RETURN recs 


* LISTING 5 
FUNCTION DataScan (Operation, 
ForBlk,WhileBlk) 


%* Voert een aktie uit op elk record dat 


* geselecteerd is met For en While 
DO WHILE Eval(WhileBlk) .and. .not eof() 
IF Eval(ForBlk) 
Eval (Operation) 
ENDIF 
SKIP 
ENDDO 
RETURN Nil 
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Beveiliging van de harde 


schijf 


Regelmatig lezen we in de krant over krakers, die gegevens stelen van andere computerge- 
bruikers. Nu zullen uw gegevens niet worden gestolen door krakers, maar ze kunnen wel 
gelezen worden door andere mensen. Als u op het werk met een computer werkt, zult u 
het niet prettig vinden als een collega de gegevens leest. Het kan ook, dat de kinderen een 
spelletje willen spelen en per ongeluk gegevens wissen. Het is dus van belang dat de har- 


de schijf wordt beveiligd. 


De meest gebruikte en waarschijnlijk ook de 
meest doeltreffende beveiliging is een wacht- 
woord. Het is erg belangrijk op welk punt de 
computer om een wachtwoord vraagt. De 
eerste keer dat de PC van de harde schijf 
leest is om de bootsector te laden. Dus wat is 
er beter dan op dit punt om het wachtwoord 
te vragen? 


De werking 

Normaal gesproken probeert de PC eerst de 
bootsector van drive A te lezen. Lukt dit niet, 
dan probeert hij drive C. Heeft hij dit gela- 
den, dan geeft hij de controle over aan het 
programma dat in deze bootsector staat. In 
een orginele bootsector van de harddisk 
staat de Partition Table, de verdeling van de 
harde schijf. | 

Bij de PC begint de eerste partitie op kant 
1, cilinder 0, sector 1, terwijl de Partition Ta- 
ble op kant 0, cilinder 0, sector 1 staat. Er is 
dus een aantal sectoren vrij (om precies te 
zijn 16 sectoren). Bij deze beveiliging zetten 
we het programma van het wachtwoord in 
sector 1, en de Partition Table in sector 2. De 
PC start op, laadt sector 1, en vraagt om een 
wachtwoord. Als dit juist is ingevoerd, zal 
hij sector 2 laden en verder gaan met het op- 
starten. 

Nu is er nog een probleem: als men van 
drive A naar drive C wisselt, leest de compu- 
ter sector 1 om de partitie te bekijken van dri- 
ve C. In ons geval staat er dus geen partitie, 
maar een wachtwoord programma. De PC 


moet sector 2 lezen, niet sector 1. Hoe vertel- 


len we hemdat? Het lezen van schijf gaat alle- 
maal via interrupt 13h. Deze interrupt kun- 

















nen we omleggen naar een programma in 
het geheugen. Dit programma controleert of 
de PC sector 1 wil lezen. Is dit het geval, dan 
moet hij sector 2 lezen. Ten slotte moet de 
leesopdracht worden uitgevoerd, via de 
oude interrupt 13h. 


Tot nu toe hebben we het aardig globaal ge- 
houden. Maar er zijn een paar details die nog 
besproken moeten worden. Ten eerste het 
omlegprogramma. Dit moet altijd in het ge- 
heugen aanwezig zijn. We kunnen de totale 
geheugenruimte verlagen met een kilobyte, 
maar dit zou zonde zijn. We hebben slechts 
17h bytes nodig. Nu heeft DOS een ruimte 
van 60 bytes gereserveerd voor gegevensuit- 
wisseling tussen twee programma’s (de Intra 
Applications Communication Area), die 
nooit wordt gebruikt. Het adres is 
0000:04ACH. 





Ten tweede het laden van sector 2. Door het 
terugkeeradres op de stapel te zetten, zorgen 
we ervoor dat int 13h terugspringt naar 
0000:7C00h, waar op dat moment de origi- 
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nele Partition Table staat. 

Het derde punt is het terugspringen van 
int 13h. Als deze interrupt wordt aangeroe- 
pen staat het terugkeeradres op stapel. Door 
naar de oude int 13h te JuMPen in plaats van 
te CALLen zorgen we ervoor dat int 13h 
‚automatisch terugspringt naar de plaats van- 
waar hij werdt aangeroepen. 


Als u het wachtwoord heeft geïnstalleerd op 
uw harde schijf, en opstart met een bootable 
disk in drive A, zult u zien dat drive C niet 
toegankelijk is. Dit is een belangrijk pluspunt 
van dit programma. Men kan alleen drive C 
benaderen door op te starten van drive C. 

Op deze manier kan men niet om het wacht- 
woord heen. Kinderen kunnen zo wel spelle- 
tjes spelen die op diskette staan, maar ze kun- 
nen de harde schijf niet benaderen. 





Het opstarten 

Het gebruik van het wachtwoord is vrij sim- 
pel. Men moet het wachtwoord intypen en 
op return drukken. Op het scherm verschij- 
nen blokken, zodat niemand kan zien wat u 


intypt. 


Bij installatie is het wachtwoord "verander"! 
Dus de eerste keer dat u de computer op- 
start, zult u dit moeten intypen. Natuurlijk 
moet u dit wachtwoord wel veranderen in 
uw eigen wachtwoord. Als u het wacht- 
woord wilt wijzigen, moet u het oude wacht- 
woord intypen, gevolgd door een schuine 
streep naar rechts, de slash (“/"). Hierna typt 
u het nieuwe wachtwoord in, gevolgd door 
return. De computer zal nu om een bevesti- 
ging vragen, om type-fouten te voorkomen. 
Na het nieuwe woord opnieuw te hebben in- 
getypt, moet u op return drukken. Het 
wachtwoord is nu gewijzigd. De volgende 
keer dat u opstart, zal de PC om het nieuwe 
wachtwoord vragen. 





Er zijn meerdere manieren om het wacht- 
woord te installeren. U moet eerst PASS- 
WORD.ASM compileren met bijvoorbeeld 
TASM. Daarna moet u het linken, en tenslot- 
te er een .COM-file van maken. Dit kan door: 


TASM PASSWORD 
TLINK PASSWORD /t 
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MASM PASSWORD 
LINK PASSWORD 
EXE2BIN PASSWORD PASSWORD.COM 


Vervolgens zijn er verschillende mogelijkhe- 
den. U kunt de listings overnemen en PAS- 
SINST.BAT starten. Maar u kunt ook Norton 
Utilities gebruiken. 

Ik raad u aan om de listings over te ne- 
men, en deze op een opstartbare diskette te 
zetten, samen met PASSWORD.COM en het 
DOS programma DEBUG. Zo kunt u de be- 
veiliging gemakkelijk opheffen (d.m.v. PASS- 
REMO.BAT). 

Er zijn dus twee programma’s voor u van be- 
lang, namelijk: 
“__PASSINST.BAT : installeert het wacht- 


woord op de harde schijf. 
“__ PASSREMO.BAT : verwijdert het wacht- 
woord. 


Dit programma is een goede beveiliging van 
uw harde schijf. Het is een beveiliging die 
geen geheugen-ruimte kost en geen ruimte 
inneemt op uw harde schijf. Ten slotte is hij 
moeilijk te kraken, zelfs voor experts. Ge- 
noeg redenen om uw harde schijf te voorzien 
van een wachtwoord. 


Barry Lagerweij 


:PASSWORD.ASM 


Code segment public 
assume cs:Code, 


org 100h 


ds : Code 


Vektor = this word -100H+4CH 

‚ De oude int 13h vektor 
Place equ 4ach ‚ Plaats van nieuwe int1l3h 
DriveC equ 80h ; Aanduiding voor drive C 
Readl equ 0201lh ;‚ Lees 1 sector 


jmp short begin; Ga naar het begin 


‚ — Procedure: Prtchar 

‚ — Doel : Schrijft een string naar het 
scherm 

‚ — Input 


: si=offset van string 
; — Gebruikt : 


Int 10h functie OEh 


‚ Functie OEh, schrijf kar 


mov ah, OEH 


mov bx, 7 ‚ Pag.0, attr. 7 
lodsb 
not al 
or al,al 


jz short exit 


‚ Laad [si] = al, si=si+l 
‚ Sleutel! 

‚ Nul? =zeinde string 

‚ Zo ja, stoppen 
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int 10h $ 
, teletype mode 
jmp short loopl ; 


Video, schrijf kar. al 


Volgende karakter 


push cs , 


Pop 


es 


es=CS 


mov si,offset Mark 


exit: ; maak klaar voor kopieren 
ret ‚ Terug mov cx,OldInt-Mark+4 
; si=offset nieuwe vektor 
; mov di,Place ; ex=lengte; di=plaats 
mammae neemen cld ; Kopieer vooruit 
; — Procedure: Skip rep movsb ; Kopieer totdat cx== 
; — Doel : Slaat een string over 
; — Input sizoffset string prtpass: 
; — Gebruikt Niets mov si,offset OldInt+4 
ke ; sizoffset "Password: " 
; call prtchar ; afdrukken op scherm 
meenen eeen call skip „ sla tekst over ("Check") 
skip mov dx, si ; dx=sizoffset huidig ww. 
lodsb ;‚ Laad [si]j=al,si=sitl call skip ; si=offset getypte ww. 
not al ; Sleutel! mov di,si ; di=si=getypte wachtwoord 
or al,al ; Is ah reeds nul call askkey ; dizeinde getypte woord 
jnz short skip ; Zo niet, ga verder mov di, dx ; di=huidig wachtwoord 
ret ; Anders terug mov CX,SÌ ‚ ex=sizingetoets woord 
sub cx,di ; ex=si-di=lengte wachtw. 
; cld ; Vooruit 
me a me nn en en SE repe cmpsb ; Vergelijk tot cx=0 of 
; — Procedure: Askkey ‚ tot er een verschil is 
; — Doel : Leest een string van toetsenbord jz short okpass ; Zelfde? ga naar okpass 
; — Input di=zoffset bestemming string dec si  si=kar. dat verschilt 
; — Gebruikt Int 10h, functie OEh, int 16h, fc. dec di > di=zdi-1 
0 lodsb ‚ Kijk waar verschil zit 
in Reg ax,CXx not al ; Sleutel 
7 cmp al, 2Fh ; Is het een ’/' 
mend et nt enen egen jne short prtpass; Zo niet, begin opnieuw 
askkey mov al, [di] ; dizeinde password 
xor ah,ah ‚ ah=functie nul, lees kar not al ; Sleutel 
int 16h ; Lees ingetypte karakters or al,al ; Echt hele wachtwoord? 
; karakter in reg al jne short prtpass; Niet goed? opnieuw 
cmp al,0Dh ; Return ingedrukt? push si ‚; Push veranderde wachtw. 
je short prenter; Ja ?, spring verder call skip ; Ga naar einde 
cmp al,8 ; Backspace ingedrukt? mov di,si ; di=begin controle 
jne short writekey push di ; diz=begin controle 
; Zo niet,schrijf karakter mov si,offset OldInt+4 
cmp di,si ; Niet aan begin string? ‚ si=text "Password" 
je short askkey ; Begin?=volgende toets call skip ; Sla over 
dec di ; Anders di=di-l call prtchar ;‚ Print " Check: " 
mov ah, O0Eh ; Schrijf backspace call askkey ; Vraag om controle 
int 10h ; Video, schrijf kar. al mov cx, di ; ex=dizeinde controle 
À teletype mode pop di ;‚ di=begin controle 
mov ax,0A20h ; Schrijf zonder cursor pop si ; si=begin veranderd woord 
mov cx, 1 ; 1 x Spatie mov bx, di ; bx=di=begin controle 
int 10h ; Video, schrijf kar. al sub cx, di ; ex=lengte controle 
, en beweeg cursor mov ax,‚CX ; Tijdelijk lengte bewaren 
jmp short askkey; Volgende toets cld ; Richting=vooruit 
writekey: repe cmpsb ‚ Controleer 
not al ‚ Pas sleutel toe jz short next ; Ok? ga verder 
stosb ; Schrijf naar geheugen jmp prtpass ; Niet goed? begin opnieuw 
mov ax,0OEBOh ; Schrijf kar BO () next : 
int 10h ; Video, schrijf kar. al mov di,dx ; di=dx=begin oude wachtw 
hi teletype mode mov si,bx ‚ si=bx=begin controle 
jmp short askkey; Volgende toets MmOv CX,ax ; ex=ax=lengte controle 
prenter: cld ; Vooruit 
xor al,al ; Enter gedrukt, schrijf 0 rep movsb ; Kopieren 
not al ‚ Sleutel xor al,al ; al=0, rest wegvegen 
stosb ‚ Schrijf naar geheugen delold: 
ret ‚ Ga terug stosb ; Schrijf nul 
mov ah, [di] ; Reeds einde? 
begin: or ah,ah ; Is nul? 
xor ax,ax ; ax=segment 0 jnz short delold; Zo niet, ga door 
mov SSs,ax ; stacksegment=0 mov ax, 30lh ; Schrijf sector 
mov ds, ax ; datasegment=0 mov cx, 1 ; Een sector, track 0 
mov bx, 7C00h ‚ terugkeeradres=bx mov dx,DriveC ; Schijf C 
mov sp,bx ; stackpointer op 7CO00 mov bx, 7COOH ; Offset van dit programma 
push ; Push flags int 13h ; Disk C, ah=func 03h 
push ax ; Push terugkeer segment : schrijf sectors. ; 
push bx ; Push terug offset (7C00) okpass: 
les ax ,dword ptr Vektor mov ax, 0OEODh ; Schrijf een Return 
; Oude int 13h mov bx, 7 ; Pag 0, kleur 7 
mov OldInt,ax ; Bewaar int. op jumpadres int 10h ; Video, schrijf kar. al 
mov Oldint+2,es ; offset“ en segment : teletype mode 
mov Vektor, Place; Nieuwe vektor omleggen mov al,0Ah ; Schrijf Line Feed 
mov Vektor+2,0 ; offset“ en segment int 10h ‚ Druk af op scherm 


nn 
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Password 


mov ax,Read1 ‚ Lees een sector NOLDBOOT.COM 


mov Cx, 2 ‚ = Orginele bootsector 
mov dx,DriveC ‚; Drive C, Track 0 1 
mov bx, 7C0O0Oh ‚ Laden over dit programma a300 
push es ‚ Alle vlaggen wissen int 13 
popf ‚ Pop flags 
jmp short JmpOld; Ga naar oude int 13h rax 
301 
Mark = this byte+7b00h; Merkteken rbx 
blokkopie 100 
ox 
cmp ax,Readl ‚ Een sector lezen? 
jnz JmpOld ‚ Zo niet, exit 
cmp cx, 1 ‚ Lees track 0, sector 1? 
jnz JmpOld ‚ Zo niet, exit 
cmp dx,DriveC ‚ Lees van drive C? 
jnz JmpOld ‚ Zo niet, exit 
inc cl ‚ Lees sector 2 (org.boot) 


this word +7b0lh 
OEAh,0,0,0,0 ; Cump Far naar oude int. 


NOLDBOOT.COM 
OF2H,OFSH, OAFH, SEH ‚ "Password: " 


8CH,8CH,88H,90H,8DH ; in code 1 
9BH, OC5H, ODFH a300 
OFFH ; einde string int 13 


OF2H,OF5H,ODFH,ODFH ; "Check: " (code) rax 
ODFH,OBCH, 97H, 9AH, CH 301 
94H, OCSH, ODFH rbx 
OFFH ‚ einde string 100 


89H,9AH,8DH,9EH,91H ; wachtwoord 
9Bh, 9AH, 8DH ‚ = "verander" 
OFFH ‚ einde string 


EEE GEEF BEEG 6! 


org 2feh ‚ Einde sector 


db 55h, OAAh ‚ Bootsector-merk 
npassword.com 


1 
a300 
int 13 


Code ends 
end start 


;EOF PASSWORD.ASM 
rax 


301 
rbx 
100 
YCx 
1 
rdx 
80 
rip 
300 
g302 


PASSINST.BAT k 


REM PASSINST.BAT 
echo [1lmPassword 1.01[0m 
echo Made by L.A.Software in 1991 Getboot.deb 
if not exist oldboot.com debug getboot.deb nul a300 
debug inst.deb nul int 13 
echo Installed. Password = "verander" 
REM EOF PASSINST.BAT B 
rbx 
100 
rCX 


PASSREMO.BAT en 


REM PASSREMO. BAT 80 
echo [1lmPassword 1.01[0m rip 
echo Made by L.A.Software in 1991 300 
if not exist oldboot.com debug getboot.deb nul g302 
debug remove.deb nul noldboot.com 
echo Removed. rCx 
200 
REM EOF PASSREMO.BAT wW 
q 
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De DESQOview API 


Het programma DESQview is vooral bekend als multitasking-programma voor DOS-appli- 
caties. Minder bekend is dat er ook specifieke DESQview-toepassingen kunnen worden 
geschreven met behulp van een speciale bibliotheek van routines, de DESOview API Li- 
braries geheten. Zulke libraries zijn beschikbaar voor C, Pascal, dBase, Basic en Assembly. 
In dit artikel zullen we de C-versie bespreken, en enkele korte voorbeeldprogramma’s ont- 


wikkelen. 





QuarterDeck logo 


De DESQview-omgeving 

Voor diegenen die het DESQview-pakket 
niet kennen, eerst een korte omschrijving 
van de omgeving. QuarterDeck, de produ- 
cent van DESQview, heeft dit pakket al enige 
jaren geleden uitgebracht en het is dan ook 
een van de meest populaire DOS-program- 
ma’s voor multitasking. Het voordeel van 
DESQview ten opzichte van MS/Windows 
is dat ook op computers zonder een 80286- 
of 80386-processor programma’s tegelijker- 
tijd (concurrent) kunnen worden gedraaid. 
Wordt er geen gebruik gemaakt van multitas- 
king, dan biedt DESQview nog altijd het 
voordeel van task-switching, hetgeen de 
vaak tijdrovende ‘load-quit-load-quit’-proce- 
dure voorkomt. Zo kan er tegelijkertijd in 
WordPerfect en bijvoorbeeld dBase worden 
gewerkt, terwijl een communicatie-program- 
ma in de achtergrond contact onderhoudt 
met een mainframe. Het is bekend dat de ei- 
sen die Windows aan de configuratie stelt, 
vrij hoog zijn: een snelle computer (80286 of 


hoger) met minstens 2 MB intern geheugen 


en een VGA-scherm is toch wel nodig om ef- 
ficiënt te kunnen werken. Omdat DESQview 





teken-georiënteerd is, kan het pakket op een 
monochroom scherm werken; bovendien is 
het gebruik van DESQview in de praktijk 
niet gelimiteerd tot AT- of snellere compu- 
ters. Een absoluut voordeel van Windows is 
dat het er veel beter uitziet en dat er gemak- 
kelijker mee te werken is door de vele grafi- 
sche voorzieningen. 


DESQOview-specifieke programma’s 
Programma’s die gebruik maken van de rou- 
tines in de API library zijn meestal DESQ- 
view-speficiek en kunnen niet zonder meer 
onder DOS worden gedraaid. Het voordeel 
van zulke programma’s is dat ze perfect in 
het DESQview-systeem passen en van alle 
mogelijkheden gebruik kunnen maken. Zo 
kunnen DESOview-specifieke programma’s 
met elkaar communiceren door middel van 
berichten en mail-boxen. Tevens kunnen der- 
gelijke programma’s van het DESQview 
menu-systeem gebruik maken en met het 
DESQview-moederprogramma communice- 
ren. Het verschil tussen een DOS-applicatie 
en een DESQview-specifieke applicatie is 
niet zo groot als bij DOS- en MS/Windows- 
toepassingen, en de eerlijkheid gebiedt ons 
te zeggen dat het DESQview-systeem veel 
minder ‘fancy’ is dan Windows. Er zijn veel 
minder commerciële DESQview-toepassin- 
gen dan Windows-toepassingen, en de API 
wordt dan ook het meeste gebruikt om 
‘custom’ applicaties te schrijven. Maar ook 
simulaties van concurrente processen kun- 
nen goed met behulp van DESQview wor- 
den geschreven. 


De DESOview API 

De DESOview API is een verzameling routi- 
nes die toegesneden is op het DESQview 
multitasking-systeem. Zo zijn er routines 
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voor windows, multitasking, communicatie 
tussen processen, geheugenbeheer en rand- 
apparaten zoals de muis. Hoewel de library 
in C is geschreven, is de opzet toch duidelijk 
object-georiënteerd. Er zijn zes verschillende 
typen objecten: vensters, mailboxen, het toet- 
senbord, timers, de muis en panels. Naar zul- 
‚ke objecten kunnen berichten worden ge- 
stuurd die tussen de verschillende klassen 
aardig wat overeenkomsten vertonen. Zo zal 
het bericht WRITE’ naar een venster-object 
gestuurd worden om iets in een venster af te 
drukken; hetzelfde bericht verzenden naar 
een mailbox betekent dat een bericht wordt 
gepost. De object-georiënteerde aanpak van 
de API heeft de aardige bijwerking dat een 
‘echt’ object-georiënteerde schil in C++ rela- 
tief eenvoudig voor de API-functies kan wor- 
den geschreven. 

Een bericht dat naar een object van een be- 
paalde klasse kan worden gestuurd, wordt 
in de naam van de functie verwerkt. Zo 
wordt de functie win_new() gebruikt om het 
bericht NEW’ naar een window-object te stu- 
ren, mal _new() om dit bericht naar een mail- 
box-object te sturen, etcetera. 


Een eenvoudig programma 

Als eenvoudig voorbeeld programma zullen 
we nu een “hello, world”-applicatie ontwik- 
kelen voor DESQview. Allereerst wordt de 
desbetreffende API-header opgenomen in de 
#include-lijst: 


finclude “dvapi.h” 


Vervolgens wordt een functie Init() geschre- 
ven, die controleert of het programma vanuit 
DESQview werd geladen, en of het de juiste 
versie van DESQview betreft: 


/* Heeft minimaal versie 2.0 nodig */ 
#define VersionRequired 0x200 


void Init () 


/* Initialiseer DV API */ 
int Version = api init (); 


if ( Version VersionRequired } 

{ 
printf(“Dit programma vereist ” 
“mimimaal DESQview %d.%02d.\n”, 
VersionRequired > 8, 
VersionRequired & OxFF ); 
exit( 1); 


/* Stel extensies in op de */ 





DOS SPECIAL 3/91 























DESOview API 


/* vereiste versie */ 
api level( VersionRequired B 


} 


Als Init() succesvol wordt beëindigd, is de 
API klaar voor gebruik. Vervolgens kan dan 
het hoofdprogramma worden aangeroepen 
dat in de functie ProgramBody() staat: 


void ProgramBody () 
{ 


win printf ( win me(), 
“Hello, world!” ); 
} 


We zien hier dat er niets anders wordt ge- 
daan dan het sturen van het bericht 
‘PRINTF’ naar een window-object. Het eer- 
ste argument van een API-functie geeft 
meestal het object aan waar het bericht naar 
wordt verzonden. In dit geval is dat echter 
het venster dat bij elke applicatie automa- 
tisch door DESQview wordt geopend. De 
functie win_me() geeft het huidige window- 
object terug, in dit geval dus het applicatie- 
venster. Er zou echter even gemakkelijk een 
nieuw window-object kunnen worden aange- 
maakt waarnaar het bericht dan zou worden 
verstuurd. 


Uit het bovenstaande voorbeeldprogramma 
blijkt dat het schrijven van een eenvoudige 
DESOview-applicatie minder voeten in de 
aarde heeft dan een vergelijkbare Windows- 
applicatie. De DESQview API is minder uit- 
gebreid dan die van Windows, maar daarom 
niet minder krachtig, vooral op het gebied 
van het beheersen van taken en processen 
waar we nu verder op in zullen gaan. 


Taken en processen 

Het multitasking-aspect van DESQview is 
zonder twijfel het interessantste. Niet alleen 
kunnen losstaande programma’s tegelijker- 
tijd uitgevoerd worden, ook kan een 
DESQview-specifiek programma taken of- 
wel ‘threads’ afsplitsen. Zo kan er bijvoor- 
beeld een aparte print-routine worden geïn- 
stalleerd, zodat het programma niet hoeft te 
wachten als er iets wordt afgedrukt. Nor- 
maal gesproken moet de ‘caller’ bij het aan- 
roepen van een functie wachten totdat deze 
functie eindigt. Met multitasking zoals gebo- 
den door de DESQview API kan de caller na 
het aanroepen meteen doorgaan, terwijl de 
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aangeroepen functie tegelijkertijd ook wordt 
uitgevoerd. | 

Met de introductie van multitasking komt 
een aantal problemen aan de orde, waaron- 
der het uitvoeren van atomaire operaties. In 
een multitasking-systeem kan een routine im- 
mers op elk moment worden onderbroken 
door een andere, tegelijkertijd draaiende rou- 
tine. Sommige operaties moeten echter ach- 
ter elkaar worden uitgevoerd, zonder dat 
een onderbreking mogelijk is. Een bekend 
voorbeeld is het bijwerken van een bestand 
met gegevens over het saldo van een cliënt 
van een bank. Als twee routines tegelijkertijd 
proberen het saldo te wijzigen, kunnen er 
problemen ontstaan bij de bepaling van het 
eindsaldo. Stel dat er twee processen A en B 
zijn die de volgende operaties uitvoeren: 


Proces A 
1. Haal saldo op 
2. Verhoog saldo met 500 . 
3. Schrijf saldo terug 


Proces B 
1. Haal saldo op 
2. Verlaag saldo met 200 
3. Schrijf saldo terug 


Indien nu het saldo 400 bedraagt, kan in een 
multitasking-systeem het volgende plaatsvin- 
den: 

A.1. Haal saldo op -> 400. 

A.2. Verhoog saldo met 500 

B.1. Haal saldo op -> 400 

A3. Schrijf saldo terug -> 900 

B.2. Verlaag saldo met 200 

B.3. Schrijf saldo terug -> 200 


Het eindsaldo zal in dit geval niet 700 bedra- 
gen, maar 200 omdat de operatie B.3 het laat- 
ste woord heeft. Het moge duidelijk zijn dat 
van elk proces de acties achter elkaar, zonder 
onderbreking moeten worden uitgevoerd. 
Dus ofwel eerst A en dan B, ofwel andersom. 
Dit probleem kan in DESQview worden 
voorkomen door het gebruik van zogenaam- 
de ‘critical regions’. Door de acties 1, 2 en 3 
van de processen als critical region te be- 


schouwen, kunnen ze niet worden onderbro- 


ken en worden ze dus gezien als één atomai- 
re (ondeelbare) operatie. De DESQview-func- 


ties api_beginc() en api _endc() geven het be- 
gin respectievelijk einde van een critical re- 
gion aan. | 

De tsk_class is aanwezig om task-objecten 
te definiëren. Met tsk_new() wordt een nieu- 
we task opgestart in een apart venster. Met 
de berichten STOP en START (respectievelijk 
de tsk_stop()- en tsk_start()-functies) kunnen 
taken tijdelijk gestaakt en weer opnieuw op- 
gestart worden. 

Applicaties verschillen van taken in het 
feit dat ze door DESQview gezien worden 
als aparte toepassingen, waartussen de ge- 
bruiker ook kan wisselen. De API bevat de 
app. class voor het definiëren van applica- 
ties. Een belangrijke eigenschap van zowel 
tasks als applicaties is dat ze ‘tot hetzelfde 
programma behoren’, ofwel dat ze code- en 
data-segmenten delen. 

Processen hebben in tegenstelling tot ta- 
ken en applicaties verschillende code- en 
data-segmenten. Dit betekent dat processen 
onafhankelijk in het geheugen bestaan, ter- 
wijl ze wel alle voordelen zoals interproces- 
communicatie hebben. In de DESQview-i1m- 
plementatie zijn processen verschillende pro- 
gramma’s, die ook in het DESQview-menu 
kunnen staan. Dus terwijl een taak in de 
meeste gevallen een C-functie zal zijn, is een 
proces een los gecompileerd programma. 


Overige routines 

Naast de genoemde klassen bevat DESQ- 
view nog ondersteuning voor communicatie 
tussen processen en taken, het verwerken 
van berichten veroorzaakt door events, het 
gebruik van de muis, timers, het toetsenbord 
en geheugenbeheer inclusief expanded me- 
mory-ondersteuning. Het zou echter te ver 
voeren om al deze mogelijkheden hier te be- 
handelen. Wat is nu het nut van DESQview- 


specifieke programma’s? Het is in ieder ge- 


val niet te verwachten dat er zoveel specifie- 
ke programma’s zullen worden uitgebracht 
als er ‘for Windows’-toepassingen zijn. Het 
schrijven van DESQview-programma'’s is eer- 
der beperkt tot educatieve toepassingen (het 
leren programmeren in een multitasking-om- 
geving), simulaties en custom-applicaties. 


dn 
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Quick Pascal versus Turbo Pascal 


OuickPascal 1.0 versus 
Turbo Pascal 6.0 


Een oneerlijke vergelijking ? 


De twee populairste Pascal compilers voor de PC zijn Microsoft's QuickPascal en Bor- 
land’s Turbo Pascal. De laatste is van deze twee veruit de meestgebruikte en wordt zowel 
in de amateur- als de professionele hoek aangetroffen. QuickPascal gebruikt men niet zo 
vaak wanneer het gaat om het schrijven van professionele applicaties. Of dat terecht is 
leest u in deze dubbeltest van de DOS-Special. 





= File Edit Search Run Compile Debug Options Window Help 
De 
En 










StartCmd: GreetingBox; 
{ DoStarting; } 
AboutCmd : Dofibout ; 





else 
Exit; [n= About 
end; 
ClearEvent (Event 
end; 
end: 








Procedure TQueueBox. 

Begin 

TListBox.Hand leEve 

if Event.What = eu 
exit; 

ClearEvent( Event 

End; 


l 
opyright (c) 1983,90 by 
‚ Inc. 


Borland International 









procedure THelloÂpp. Ini tMenuBar; 

var 

R: TRect: 
1:1 


Borland levert twee versies van haar Pascal Testpunten 

compiler voor DOS (er is sinds kort ook een Om een vergelijking te maken moesten we 
Windows-hosted compiler, meer hieroverel- | de beide compilers op een aantal punten tes- 
ders in dit nummer), de standaard en de pro- | ten. Uiteraard zijn dit zaken als de gebrui- 


fessionele editie. Voor deze test gingen we kersvriendelijkheid van de IDE, de kwaliteit 
uit van de standaard editie van de laatste ver- | van de debugger, meegeleverde code als 

sie, 6.0. De professionele editie voegt daar units, frameworks en voorbeelden, maar ook 
een profiler (besproken in de vorige DOS- de kwaliteit van de handleidingen en het on- 
special), een uitgebreidere debugger en de line hulpsysteem. Een ander belangijk punt 
Turbo Assembler aan toe. Microsoft levert zijn de toekomstmogelijkheden van eenmaal 
van haar QuickPascal geen professionele edi- geschreven code. QuickPascal heet compati- 





tie, er is slechts één versie beschikbaar, welke | bel te zijn met Turbo Pascal, maar verschilt 
net als Turbo Pascal 6.0 alleen DOS-code op een voor de toekomst zéér belangrijk 


(dus geen Windows-code) kan genereren. punt, de implementatie van object-georiën- 


DOS SPECIAL 3/91 63 








Quick Pascal versus Turbo Pascal 















s_dn 
s_Ìt 
s rt 


$024d: 


File Edit View Search Make Run Debug 

| [1] E:\QUICKPASNSAMPLES 
50250: L{ SHIFT + down arrow 
$024B; { SHIFT + left arrow 
{ SHIFT + right arro 

[21 E:NQUICKPASNSAM 
PROCEDURE pencolor( cur_index 













FUNCTION getpencolor : Integel Soa Matt 






FUNCTION nextcolorindex( cur_index : Integer ) : Integer; ü 
BEGI PROCEDURE nextcolorvaluel action : Integer }; Ë 


_ PROCEDURE circlel r : Double ): 


PROCEDURE ellipsel w‚, h 
PROCEDURE rectanglel w, h 


FUNCTION imagesizel w,‚, h 
PROCEDURE getimagel w‚, h 


: Double ); 
: Double ); 


: Double ) : LongInt; 
: Double; VAR buf ); 


PROCEDURE putimagel VAR buf; Act : Integer }; 


PROCEDURE paint; 


FUNCTION onscreen( xcur, xMax, ycur, yMax : Double ) : Boolean: E 








=Help> Enter > < sc=Cancel > 


Quick Pascal 1.0 


teerd programmeren (OOP). QuickPascal 
heeft dit gedaan naar de manier die de godfa- 
ther van Pascal, Niklaus Wirth, heeft be- 
dacht. Borland heeft haar eigen guru, Anders 
Heijlsberg, op het probleem losgelaten, die 
met een andere implementatie kwam. Op dit 
punt is de code dus niet meer uitwisselbaar, 
zodat u zich twee keer moet bedenken voor 
u voor een compiler kiest. In de C++ wereld 
zal zo’n probleem niet snel voorkomen, aan- 
gezien AT&T daar de standaard voor maakt 
waar weinig compiler-fabrikanten van zul- 
len afwijken. Dit garandeert een compatibili- 
teit die, zeker nu het fenomeen object-ge- 
oriënteerd zo opduikt, een duidelijke verhel- 
dering in de software-wereld betekent. 
Borland is de ongekroonde koning van Pas- 
cal voor de PC, het bedrijf is er groot door ge- 
worden en zet zodoende de trend. Wanneer 
een andere fabrikant een Pascal compiler uit- 
brengt is het voor de consument het han- 
digst wanneer de code portable is ten opzich- 
te van Borland’s ‘standaard!’ 


Maar terug naar waar het allemaal om gaat, 
TP en QuickPascal. De behuizing van de pak- 
ketten gaf al een aardig verschil te zien. 
QuickPascal kwam in een doos met daarin 


slechts één handleiding ‘Pascal by Example’, 


terwijl TP met maar liefst vier boeken uit de 
doos kwam. Specifiek voor de compiler wa- 

















ren de ‘User's Guide’, de ‘Programmer's Gui- 
de’ en de ‘Library Reference’. Daarbij kwam 
nog de Turbo Vision Guide’, die u het nog 
te bespreken framework TurboVision moet 
gaan uitleggen. Als we deze laatste niet in de 
telling betrekken geeft Borland zo’n achthon- 
derd pagina’s aan documentatie mee, terwijl 
Microsoft het bij één boek van driehonderd 
bladzijden houdt! 


De installatie-procedure was bij beide pak- 
ketten simpel, al kreeg ik bij TP op een gege- 
ven moment een foutmelding dat PKUNZIP 
niet gevonden was. Vreemd, maar uiteinde- 
lijk werkte het allemaal wel. De procedure 
bij QP was wat rommelig; omdat ik niet op 
de defaultdrive C: wilde installeren werd mij 
drie keer gevraagd waar wel. Het verschil 
aan in beslag genomen diskruimte is aanzien- 
lijk. QuickPascal neemt genoegen met 1.8 
MB, terwijl TP zo’n 4 MB aan harddisk- 
ruimte opeist. 


QuickPascal 

De IDE van QP valt niet tegen. Microsoft 
was eerder dan Borland met het toevoegen 
van een muis en resizable windows aan de 
ontwikkelomgeving. QP bezit een goede edi- 
tor, die Pascal keywords in een andere kleur 
weergeeft. Dit zou de overzichtelijkheid kun- 
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nen verhogen, ik zelf vond het vrij verve- 
lend, maar misschien moet je eraan gewend 
‚raken. 


_Debugger 

| De IDE bevat verder een geïntegreerde de- 
_bugger. De kwaliteit hiervan is zoals men 
‚zou verwachten: niet bijzonder spectaculair, 
‚maar er valt mee te werken. Zo is backtra- 
‚cing (het ‘teruggaan’ in het programma) niet 
mogelijk en laat het debuggen van object- 
‚georiënteerde code ook te wensen over. De 
output van de debugger, zoals watch-varia- 
belen en breakpoints, komen in een apart 
window op het scherm. U kunt de informa- 
tie op een voor u handige plaats en grootte 
‚op het beeldscherm krijgen. De debugger 
laat een record-variabele als watch-variabele 
‚toe. De datavelden worden door middel van 
‚ komma’s van elkaar gescheiden. Indien u de 
| optie ’R’ meegeeft worden ook de namen 
‚van de velden getoond. Dit maakt het bekij- 
‚ken van een record-variabele een stuk over- 
zichtelijker. Met de optie ’{$D+}’ wordt in de 
sourcecode debug-informatie meegenomen, 
welke tevens de defaultwaarde is. Aangezien 
‚OP conditionele compilerdirectives onder- 

| steund is het mogelijk voorwaardelijke de- 
bugstatements toe te voegen. 


‚Taal 


Microsoft heeft zich bij het ontwikkelen van 
QP bijna volledig op Borland gericht. Er is 
geprobeerd om de taal en de units compati- 
‚bel te houden. Alleen op het gebied van ob- 
ject-georiënteerde code zijn de wegen dus ge- 
scheiden geraakt. De compilerdirectives zijn 
hetzelfde, al zijn het er niet even veel. Gewo- 
ne code is dus niet voor honderd procent 

‚ portable, omdat deze compilerdirectives in 
‚de source kunnen worden aangegeven. Voor 
de rest is de code die niet op objecten berust 
‚portable te noemen. Wat oude niet object- 
‚georiënteerde codes die door mij met TP wa- 
ren geschreven werden zonder meer door 
OP geaccepteerd. Deze code bevatte een aan- 
tal pointeroperaties, maar ook variante re- 
cords, DOS-functies enzovoorts. Wel werd 
‚een unit die in het programma was aangege- 
ven (uses unitnaam) telkens opnieuw gecom- 
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pileerd, ook indien er geen veranderingen in 
aangebracht waren. Nu is de compilatiesnel- 
heid van Pascal zo groot dat we niet einde- 
loos hoeven te wachten, maar toch. In QP 
zijn in tegenstelling tot TP alle objecten dyna- 
misch. U moet ze dus altijd met ‘new’ aanma- 
ken en met ‘dispose’ verwijderen. Nu zou 
dat nog niet zo’n probleem zijn, ware het 
niet dat de schrijfwijze van een verwijzing 
naar velden en methodes van een object niet 
impliceert dat we met een pointer te doen 
hebben. Heeft het object ’A’ als datafield ’b’, 
waarbij A dus een pointer is, dan roepen we 
het veld ‘b’ aan door middel van ‘'A.b’ en 
niet door ’'A\.b’. Aangezien TP deze schrijf- 
wijze voor een pointer-object niet accepteert 
is de code op dit punt al niet meer uitwissel- 
baar. Erger nog: in de implementatie van QP 
zijn alle methoden in een object virtueel zijn. 
Een constructor en destructor bestaan zo- 
doende niet. Om een methode te overschrij- 
ven worden we dan met een ernstig pro- 
bleem geconfronteerd. De heading van een 
methode moet namelijk dezelfde zijn als die 
in het ouderobject (zoals dat ook moet met 
virtuele methoden in TP). Maar wanneer we 
dat helemaal niet willen moeten we dus een 
methode met een nieuwe naam toevoegen 
aan het object. Dit resulteert in meer metho- 
den per object. 


Een ander nadeel van de implementering is 
dat het niet goed mogelijk is om naar de me- 
thoden van een ouder te verwijzen. Een ob- 
ject ‘omhoog’ is mogelijk door het keyword 
‘Inherited’ te gebruiken, maar de eventuele 
ouder van dat object valt niet meer te berei- 
ken. Bij gebruik van OOP is in QuickPascal 
het keyword Self verplicht. In de meeste ge- 
vallen is dat overbodig omdat we toch wel 
weten waar de datamember of methode be- 
trekking op heeft. 


Voorbeeldprogramma’s in Quick- 
Pascal 

Het aantal voorbeeld programma’s dat Micro- 
soft meelevert valt op de vingers van een 
hand te tellen. Een aardig voorbeeld vond ik 
een grafisch demonstratieprogramma van 
verschillende sorteermethoden, genaamd 
sort.pas. Het is jammer dat Microsoft niet 
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Turbo Pascal 6.0 


wat meer mogelijkheden laat zien van Quick- 
Pascal, omdat er natuurlijk best aardige din- 
gen mee te doen zijn. 


Helpsysteem 

Microsoft levert bij QuickPascal een uitge- 
breide tutorial die u wegwijs moet maken in 
het gebruiken van QuickPascal. Het zou han- 
dig zijn als dit in meer programma’s beschik- 
baar zou zijn, omdat het een snelle manier is 
om een applicatie machtig te worden. Het 
helpsysteem van QP is net als dat van Turbo 
Pascal vrij uitgebreid, echter, waar TP een 
voorbeeld geeft bij het gebruik van een be- 
paalde functie, laat QP dit achterwege. 


Turbo Pascal 6.0 


Versie 6.0 van Turbo Pascal is de eerste die 
een IDE heeft die de compiler waardig is. Be- 
schouwde iedereen versie 5.5 als een goede 
compiler, de ontwikkelomgeving was op een 
gegeven moment ouderwets. Gebruik van 
muis en resizable windows werd niet onder- 
steund. Met Turbo Pascal 6.0 is dit gelukkig 
wel het geval. Het aardige van deze IDE is 
dat die geheel met behulp van Turbo Pascal 


| is geschreven. Zo kunt u zien wat er met het 


meegeleverde applicatie-framework Turbo- 
Vision, waarvan u elders in dit blad een uit- 





gebreide beschrijving vindt, mogelijk is. De 
IDE van TP is nu dus op niveau, en persoon- 
lijk vind ik het iets prettiger werken dan de 
IDE van QP. Turbo Pascal is in vergelijking 
tot de vorige versie met een aantal interessan- 
te zaken uitgebreid. Zo is er nu ook een com- 
mandline-compiler die in protected mode 
werkt. Voor het gebruik hiervan is minstens 
een 80286-processor vereist. Deze compiler, 
genaamd tpcx, genereert dan wel realmode 
programmas, maar is in staat om extended 
memory te gebruiken en zodoende zeer gro- 
te programma’s te compileren. De oude com- 
mandline-compiler tpc is natuurlijk gewoon 
blijven bestaan. Turbo Pascal is nu ook in 
staat om 286-code te genereren. Specifieke 
80286-instructies kunnen nu gebruikt wor- 
den om een snellere en efficiëntere code te 
verkrijgen. Het is jammer dat de bekende 
DOS 640KB-limiet wel blijft bestaan. Ook 
heeft TP een nieuwe heapmanager. Volgens 
Borland veroorzaakt deze minder fragmenta- 
tie in het geheugen en is daarbij sneller. 

Op het object-georiënteerde vlak zijn de 
uitbreidingen wat minder spectaculair. De 
enige nieuwe feature die ingebouwd is is 
‘private’, waarmee datamembers en metho- 
den afgeschermd kunnen worden. De scope 
van deze datamembers en methoden is dan 
de module waarin ze gedeclareerd zijn, dus 
als bijvoorbeeld een methode in een unit x 


"0 
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private gedeclareerd is kan alleen in unit x 
met deze methode gewerkt worden. 


Toegankelijkheid 

Borland streeft ernaar om de toetreding tot 
Pascal ook bij OOP zo makkelijk mogelijk te 
maken. Zaken als multiple inheritance, re- 
peated inheritance, friends, protected en ope- 
rator en function overloading zullen niet 
snel in TP verwerkt worden, al zijn die al 
wel in talen als C++ te vinden. Nu is dit alle- 
maal niet noodzakelijk om een probleem op 
te lossen, met het nu aangebodene kan even 
veel gedaan worden, maar het kan de oplos- 
sing af en toe wat vereenvoudigen. 


Debugger 

De debugger die Borland bij de standaard 
editie van TP meelevert is net als die van QP 
niet bijzonder spectaculair te noemen. In de 
professionele editie wordt de Turbo Debug- 
ger meegeleverd die tot veel meer in staat is. 
De geïntegreerde debugger biedt onder meer 
conditionele breakpoints en record- en object- 
watch-variabelen. Ook bij deze debugger 
geldt dat het niet mogelijk is om terug te 
gaan in het programma. Wanneer u dan ook 
prijs stelt op een uitgebreidere debugger 
doet u er verstandig aan om de professionele 
editie van TP met de Turbo Debugger aan te 
schaffen. 


Taal 


Zoals gezegd is de uitbreiding van TP in 
OOP-gebied beperkt gebleven tot ‘private’. 
Op het niet-OOP-vlak zijn er echter ook wat 
zaken bijgekomen. Er is een zogenaamde ‘ex- 
tended syntax directive’ bijgekomen ($X), 
dat het mogelijk maakt om functies te be- 
schouwen als procedures. Het functieresul- 
taat kan dan genegeerd worden. Het compi- 
lerdirective ($G+} genereert 286-code. Ook is 
de inline assembler uitgebreid. Code, die u 
geschreven heeft met eerdere versies van 
Turbo Pascal, compileert ook nu weer zon- 
der problemen. De unit Graph3 zorgt weer 
voor compatibiliteit met de grafische func- 
ties van de oudere compilers. Echt veel 
nieuws is er wat dat betreft dus niet onder 
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de zon, maar de taal is wel wat uitgebreider 
dan die van QP. 


Voorbeeldprogramma’s 

Over de voorbeeld programma’s die Borland 
bij Turbo Pascal meelevert kunnen we niet 
klagen. De kwaliteit is hoog en ook de hoe- 
veelheid valt niet tegen. Het meest spectacu- 
laire is natuurlijk weer TCalc, de spreadsheet 
die Borland bij al haar talen meelevert. De 
voorbeelden van TurboVision zijn goed en 
geven een uitstekend beeld van wat met dit 
framework te bereiken is. 


Helpsysteem 

Het helpsysteem van TP geeft geen reden tot 
ontevredenheid. De rechtermuisknop geeft 
context-gevoelige hulp, terwijl het gevraag- 
de onderwerp ook op andere manieren mak- 
kelijk is op te zoeken. Bij elke standaard func- 
tie wordt een voorbeeld gegeven, zodat de 
manier waarop zo’n functie gebruikt dient te 
worden meestal wel duidelijk wordt. 


TurboVision 

Veruit het interessantste aan IP is het meege- 
leverde framework TurboVision (TV). Elders 
in deze DOS-Special is hier een artikel aan 
gewijd, zodat we er hier niet al te diep op in 
zullen gaan. TV maakt het mogelijk om SAA- 
compatible applicaties te schrijven, zonder 
dat u hier iedere keer ‘from scratch’ mee 
hoeft te beginnen. Het framework is uiter- 
aard object-georiënteerd. 


Conclusie 

Het is duidelijk, Borland wint met Turbo Pas- 
cal op punten. De meegeleverde documenta- 
tie is stukken beter dan die van Microsoft en 
ook het helpsysteem heeft bij TP meer aan- 
dacht gekregen. OP biedt u slechts een mati- 
ge compiler, gecompileerde code was stee- 
vast groter, en geeft u slechts een aardige 
IDE. Programmeurs die zich op OOP gaan 
richten dienen al helemaal hun toevlucht te 
zoeken tot Borland. QuickPascal is aardig 

om Pascal mee te leren, maar om een profes- 
sionele applicatie mee te maken is het niet ge- 
schikt. 
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Scramble in QuickBasic 


en assembly 


In de vorige DOS-Special schitterde de programmeertaal BASIC door afwezigheid. Nu 
wordt er regelmatig afgegeven op Basic als ware het een ‘laag-bij-de-grondse’ (‘basic’) taal 
waar niets serieus mee te doen valt. Desondanks bespeur je soms toch wat afgunst, zoals 
in de boekbespreking in die vorige DOS-Special van ’C voor BASIC-programmeurs’ (Pim 
Philipse) waarin de recensent peinst dat dit boek ‘ook is voor hen die soms met weemoed 
terugdenken aan het gemak waarmee in BASIC vele ingewikkelde operaties met een en- 


kel statement uitgevoerd konden worden.’ 


Soms vraag je je af waarom men de moeite 
neemt om naar C over te schakelen. Basic is 
een zeer krachtige taal, die tegenwoordig 


‚ook een interface heeft naar de DOS en BIOS 


interrupts. Basic is leesbaar, begrijpelijk, 
doorzichtig, beknopt en is eigenlijk alleen 
door het idee van ‘gestruktureerd pro- 
grammeren’ in een tijd dat Basic program- 
ma’s nog vol met GOTO's stonden uit de gra- 
tie geraakt. ledere taal kent overigens GOTO 
in enigerlei vorm, en mits met beleid ge- 
bruikt valt met GOTO soms heel veel te be- 
reiken, zoals in de volgende ’Pseudo’code 
voor het testen en na goedkeuring openen 
van een bestand. 


| Zonder GOTO: 


DO 


( ProbeerOpnieuw = false 


IF conditie THEN 
HerstelBestand 
TestOpnieuw 
ProbeerOpnieuw = true 
ELSE 

OpenBestand 


' ENDIF 


LOOP WHILE ProbeerOpnieuw 
Hetzelfde effect met GOTO: 
Labell: 


IF conditie THEN 
HerstelBestand 


‚ TestOpnieuw 


GOTO Labell 
ELSE 
OpenBestand 
ENDIF 


Een gefingeerd voorbeeld als dit laat al wat 
besparingen zien: een variabele minder, een 


vergelijking aan het eind van de LOOP min- 
| der, minder inspringen en dus leesbaardere 


code. Als tussen de IF … ELSE ook nog drie 
geneste IF's of LOOP's zitten, weet u al waar 





de fouten gaan komen! Daarbij, GOTO zit 
zelfs in de meest gestruktureerde program- 
meertaal, want wat is ’IF conditie THEN … 
ELSE’ anders dan IF NOT conditie GOTO 
ELSE’? 

Met Basic vallen zeer serieuze applicaties 
te bouwen, indien je de grootte van het uit- 
eindelijke EXE-bestand op de koop toe 
neemt. Mocht dat een overweging zijn om 
naar een andere taal uit te wijken dan raad ik 
aan eens rond te kijken. Er bestaat een alter- 
natieve Link-library waarmee EXE-bestand 
tot de helft kunnen slinken en dus ook snel- 
ler worden. Verder kan er met deze library 
een TSR van 1 of 2 kB in Basic geschreven 
worden. Met de QuickBasic compiler is niks 
mis, maar het uiteindelijke EXE-bestand is 
wat groot omdat er wat veel ongebruikte rou- 
tines worden mee-gelinkt, hetgeen lang niet 
altijd nodig is. 

Zo nu en dan moet men ook in Basic toe- 
vlucht nemen tot assembly, net als in andere 
talen. Dit geldt met name voor zaken die 
echt snel moeten zijn, zoals schermuitvoer, 
strings doorzoeken en dergelijke. Zodra de 
gebruiker moet wachten, wordt een program- 
ma als ‘langzaam’, en dus als onprettig erva- 
ren. 

Assembly gebruiken in Basic is heel sim- 
pel: Je schrijft een routine in assembly en 
maakt daarvan een QuickLibrary met behulp 
van de bij QuickBasic meegeleverde pro- 
gramma’s. Vervolgens start men QuickBasic 
met deze library, waarna de routine getest 
en gebruikt kan worden. Zoals met iedere 
taal geldt ook hier dat er wel geweten moet 
worden hoe de taal in elkaar steekt. Zo mag 
men vanuit assembly alles met Basic strings 
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doen, zolang de plaats en de lengte maar niet veran- 
derd worden. Het eerste, simpele, voorbeeld dat een 
getal met twee vermenigvuldigt illustreert de princi- 
pes daarvan. De code is geschreven voor A86, een 
ShareWare assembler (verkrijgbaar via ToneHalt), 
maar is eenvoudig voor MASM of TASM aan te pas- 
sen. De listing staat op de volgende pagina. 

Een andere reden om naar assembly uit te wijken 
is bit-operaties. In de vorige DOS-Special (2/91) 
stond een versleutelings-routine voor Clipper waar- 
mee bepaalde velden gecodeerd konden worden. De 
tweede listing in dit artikel geeft er een die in assem- 
bly geschreven is en vanuit Basic is aan te roepen 
(met een enkele wijziging ook vanuit C of Pascal.) 


Het principe is simpel. We nemen aan dat versleute- 
ling plaatsvindt vlak vóór het schrijven naar disk en 
direkt ná het lezen van disk. Versleutelen is namelijk 
alleen van belang voor zaken die op disk staan. 

We gaan uit van binaire bestanden, dat wil zeggen 
dat je op iedere gewenste offset vanaf het begin van 


het bestand kunt gaan lezen of schrijven, en iedere ge- 


wenste lengte kunt lezen en schrijven. 


Voor het algoritme gelden de volgende overwegin- 


gen: 
*__ Gekozen is voor XOR-operaties, zodat zowel en- 
crypt als decrypt met dezelfde code gedaan kun- 
nen worden. 

De versleutelde data op disk moeten vanaf iedere 
positie weer ‘ontsleuteld’ kunnen worden. Als ik 
‘Hallo wereld’ versleutel en op positie 1 in het be- 
stand wegschrijf, vervolgens vanaf positie 7 iets 
lees en ‘ontsleutel’, moet ik ‘wereld’ krijgen! 

Het wachtwoord moet onleesbaar en on-ontcijfer- 
baar blijven (en zichzelf ook niet herhalen) als ik 
een lang stuk spaties of een lang stuk nul-ka- 
rakters versleutel. 

Een ‘leeg’ wachtwoord moet geen enkele versleu- 
teling veroorzaken. 


Het algoritme is verder simpel gehouden om snel- 
heid te verkrijgen. Een geoefende cryptoloog zal ver- 
sleutelde bestanden vast wel kunnen ontcijferen, 
maar zolang een leek denkt dat het om een program- 


‚ma-bestand gaat als deze versleutelde data ziet is ons 
„doel bereikt. 


‚In de komende kaders staan de assembly code, de 
‚link opdrachten, en BASIC voorbeeld programmaat- 
jes, inclusief uitleg. 


Dennis ten Siethoff 
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‚Getal: 16384, resultaat 
‚Call: b% = Twice(a%) 


32767, geen teken 


‚Declare: DECLARE FUNCTION Twice(BYVAL a%) 
Twice: „naam van de funktie 
push bp ;bewaar bp 


mov bp,sp;gebruik bp nu om de 
;stack te adresseren, 


‚want daar staat a% 


mov ax, [bp+6] ;zet a% in ax 

cle ‚clear carry, anders 
;wordt die wellicht 
;ax binnengeschoven... 


shl ax,1l;vermenigvuldig met 2 
;„laat het resultaat 


‚in AX staan 


‚herstel de stack 
„pointer, zodat we 
‚weten waar ons 
;terugkeer-adres 
‚naar BASIC staat 
pop bp ;herstel bp 
retf 2 ;keer terug 
;Einde van de routine 


mov sp,bp 


;Maak hiervan een OBJ-file vanaf de command-line 
„met bijvoorbeeld A86: 

s Gt A86 twice.asm TO twice.obj 

;Maak een quick-library: 

‚ C: Link /q twice.obj, twice.glb, , bqlb41.lib 
;Start QuickBasic: 

s C: QB /1l twice 

‚Schrijf een test-programma: 

;DEFINT A-Z 

;DECLARE FUNCTION Twice(BYVAL a%) 

;CLS : FOR a = O0 TO 16384: PRINT Twicel(a); : NEXT 
; END 


‚De tafel van twee... 


quick (un)scrambling algorithm 


‚Call: 
offseté&; 
‚ See QB example program 


Scramble text$, password$, 


;Return: (un)scrambled text$ 


Author: D. ten Siethoff 1991 


Scramble: 

a$ 

b$ 
offshi 
offslo 


[bp+12] 
[bp+10] 
[bp+8)] 
[bp+6] 


text to be (un)scrambled 
;password$ (any length) 
;longint = file offset& 


push bp entry code 


mov bp, sp 
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push siìi,di ;save registers used 
„Calculate: bx = offset& MOD LEN (PassWord$) 

mov dx,offshi ;dx:ax & offs& 

mov ax,offslo 


mov di,b$ ‚get b$, password 
mov bx, [di] „length of b$ 
xor bh, bh ;use up to 255 bytes 
‚of the 
password | 
cmp bl,0 ;password 
empty? 
je L2 ;don’t scramble! 
mov di, [di+2] ;address of b$ 
;di:bl = 
password$/b$ 
div bx ‚divide dx:ax by bx, get 
;remainder 
in dx 
xchg bx, dx ;bx = current offset into 
;password$ 


‚dl = length password$ 


;Calculate: dh = seed rotated (offset& mod 8) 
times 

mov cx,offslo 

and cx, 7 ;ex = longint mod 8 


mov dh, 137 ;fixed seed 10001001, any 
;seed will 
do, but an 
;a-symmetric pattern works 
;best 
ror dh, cl ;dh = scramble byte 


mov si,a$ ;get a$, text 
mov cx, [si] 
jexz L2 


mov si, [si+2] 


;no text? Then go home! 
;si:cx is address/len of a$ 


‚Scramble away... 


LO: lodsb ;get char from a$ 
xor al, [di+bx] ; (un)scramble with 
password 
xor al, dh ‚ (un)scramble with 
position 


mov [si-1l],al 


ror dh, 1 ;next position in file 

inc bx ;next char in password 

cmp bl, dl ;beyond length of 
password? 


; (zero based!) 
if ae xor bx,bx ;then zero again 


Ll: loop LO 


;Tidy up... 

L2: pop di,si „restore registers 
mov sp, bp ;restore stack 
pop bp 
retf 8 ;return skip 4 args. 


;Notities: De string wordt versleuteld met 
telkens 

seen ander karakter van het wachtwoord, en met 
een 

;byte die verbonden is met de positie in het be- 
;stand waar de string wordt geschreven. Aangezien 
;deze laatste byte iedere 8 posities hetzelfde 
is, 

;is het aan te raden om een wachtwoord te kiezen 
‚met een oneven aantal karakters. Bij 7 karakters 
‚wordt een string van spaties of nul-karakters 
elke 

;56 karakters hetzelfde versleuteld. 

;Verder is het aan te raden om in het programma 
zelf een wachtwoord te voorzien van een ’stan- 
;daard’-uitbreiding, zodat een wachtwoord van n 
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;store (un)scrambled char. 


„letter toch tot een redelijke versleuteling 
leidt. 
;B.v.: PassWord$ = PassWord$ + “Scramble”. 


mm 
, , 


;Compileer: N 
;Maak een OBJ-file vanaf de command-line met bij- 
;voorbeeld A86: 

;A86 scramble.asm TO scramble.obj 

;Maak een quick-library: 

Link /q scramble.obj, scramble.gqlb, , bqlb41l.lib 
;Start QuickBasic: 

;QB /1 scramble 


dn 
, , 


'SCRAMBLE.BAS —- Scramble test-programma 


DEFINT A-Z 

DECLARE SUB Scramble (text$, password$, BYVAL 
offs&) 

OPEN “Scramble.tst” FOR BINARY AS 1 

a$ = “Dit is een test” + SPACES (1000) 

LINE INPUT “Password: ”; pw$ 


IF LEN(pw$) THEN pw$ = pw$ + “Scramble” 

‘Empty password$? Then don’t alter a$'!!! 

Scramble a$, pw$, 1 ’scramble ì 
PUT 1, 1, a$ ‘write to file 


a$ = space$ (1015) 
GET 1, 1, a$ 
Scramble a$, pw$, 1 


‘read from file 
‘unscramble 8 


‘PRINT “Unscrambled should read: Dit is een test” 


PRINT LEFTS$ (a$, 80) 


a$=space$ (1003) 
GET 1, 12, a$ 
position 
Scramble a$, pw$, 12 ‘unscramble 
PRINT “Unscrambled should read: test” 
PRINT LEFTS$ (a$, 80) 


'read from another 


PRINT “Now SHELL to DOS, and use LIST.COM to *” 
PRINT “inspect Scramble.TST which should be ” 
PRINT “illegible!!” 

END 


NB: Als je een versleuteld bestand afsluit is 

het natuurlijk mooi als de sleutel zlf ook ’ver- 
sleuteld’ in dat bestand staat. Dan kun je bij het 
openen van een bestand direkt naar het wachtwoord 
vragen en het bestand niet openen als dat wacht - 
woord fout is. Het simpelste is om het wachtwoord 
te versleutelen met een vaste code, en het aan het 
eind van het bestand te zetten. Dit doen we wel zo 
dat het wachtwoord in een string met een vaste 
lengte staat, zodat het onduidelijk blijft hoelang 
het wachtwoord zelf is: 


a$ = SPACES (255): LSET a$ = pw$ 
Scramble a$, “Versleutel”, LOF (1) 
PUT 1, LOF(1), a$: CLOSE 1 


Na openen heb je zo het wachtwoord: 

a$ = SPACES$ (255) 'moet genoeg 

zijn 

offs& = LOF (1) —- 255 + 1 ‘waar staat het? 

GET 1, offs&, a$ ‘string ophalen 
Scramble a$, “Versleutel”, offs& ’ leesbaar maken 
eind = INSTR(a$, “Scramble”) 
pw$ = LEFT$ (a$, eind - 1) ‘haal “Scramble” eraf 
‘Kontroleer of gebruiker het juiste woord weet: 
LINE INPUT “Geef wachtwoord: ”;a$ 

if a$ pw$ THEN PRINT “Sorry, foutje!”: END 

‘Rest programma 


nn 
Lá , 
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Actor 3.0 


Actor is een uitgebreide ontwikkelingsomgeving en programmeertaal voor het ontwikke- 
len van stand-alone Windows applicaties. Deze in 1987 door The Whitewater Group geïn- 
troduceerde taal laat een duidelijk andere aanpak zien van hoe een Windows-applicatie 
tot stand kan komen. Zo is Actor in tegenstelling tot bijvoorbeeld Borland C++ of Turbo 
Pascal for Windows een puur object-georiënteerd systeem: alles is een object. De omge- 
ving bevat bovendien een incremental compiler, wat tot gevolg heeft dat wijzigingen in 
een programma niet leiden tot volledige hercompilatie, maar direkt worden verwerkt. 


OOP en Actor 


Objecten zijn de bouwstenen van een object- 
georiënteerd programma en spelen dan ook 
een centrale rol in een taal als Actor. Ze heb- 
ben gedetailleerde kennis van de taken die 
ze moeten verrichten; zulke taken hebben 
meestal betrekking op een bepaald onder- 
werp. Er zijn in de Actor omgeving meer 
dan 125 objecten gedefinieerd waar men al 
direct mee aan de slag kan. Zo kent de taal 
een object dat alles weet van popup wind- 
ows. Aan dit object kan men berichten stu- 
ren zoals ‘open jezelf’ of ‘verplaats jezelf’, en- 
zovoort. 


Een object wordt gedefinieerd in een class. 
Deze class bevat zowel de implementaties 
van de berichten die je het object kunt sturen 
als de data die het object kan bevatten. De 
implementatie van een bericht wordt in een 
object-georiënteerde omgeving aangeduidt 
met methode en is eigenlijk niets anders dan 
een functiedefinitie zoals men die ook wel in 
een taal als C of Pascal tegenkomt. De alge- 
mene syntaxis voor het verzenden van een 
bericht in Actor is: 


Bericht (Ontvanger, Argument, 
Argument...) ; 


waarbij Ontvanger staat voor het object 
waarna het bericht verzonden wordt. Toch is 
het verzenden van een bericht in Actor alge- 

‚ mener dan een functie aanroep in C of Pas- 
cal; verschillende objecten kunnen ieder op 
hun eigen manier op zo ‘n bericht reagereren: 


show (EditWindow, 3); 
| show (AboutWindow, 1); 


‚Het sturen van dezelfde berichten naar ver- 
schillende objecten staat bekend als polymor- 


DOS SPECIAL 3/91 












fisme en maakt het programmeren een stuk 
overzichtelijker. De ontvanger van een be- 
richt reageert door zijn overeenkomstige me- 
thode te raadplegen. 


Inheritance of overerving is de techniek dat 
bestaande objecten gebruikt worden als basis 
voor nieuwe objecten. Deze nieuwe objecten 
erven de eigenschappen van de basis-objec- 
ten en kunnen dus als uitbreiding op hun 
‘ouders’ worden gezien. Hierdoor gaat de 
kennis die in het basis-object ligt opgeslagen 
niet verloren. Zo zijn de classes van Edit- 
Window en AboutWindow gedefinieerd met 
een gemeenschappelijke basis-class: Win- 
dow. Inheritance kan gebruikt worden om 
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case CON EN 

endCase 

is stmtList; 

endCase 
endSelect ; 
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een hiërarchisiche boomstructuur van gerela- 
teerde classes te bouwen, waarbij de boven- 
liggende classes de eigenschappen definië- 
ren die voor alle onderliggende classes gel- 
den, zodat deze niet voor de afgeleide 

classes opnieuw gedefinieerd hoeven wor- 
den. 


De Actor compiler wordt standaard geleverd 
met een aantal tools zoals browsers, object in- 
spectors en debuggers die alle als popup 
windows geactiveerd kunnen worden. Het 
gehele proces van programmeren, testen en 
debuggen kan dus binnen Windows zelf 
plaats vinden. Het belangrijkste window in 
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de Actor omgeving is de Workspace; vanuit 
dit window worden onder andere de source 
files geladen en kunnen de diverse tools ge- 
activeerd worden. De primaire functie van 
de Workspace is het testen van de classes en 
methoden die in de Browsers gecreëerd zijn. 
Dit testen gebeurt met de ingebouwde com- 
mand processor; je voert een regel code in en 
executeert hem. Zo kun je gebruikmakend 
van de al in Actor gedefinieerde class Edit- 
Window al een eenvoudige Editor op het 
scherm zetten: 


SimpelEdit := defaultNew(EditWindow, 
“Simpele Editor”); 
show(SimpelEdit, 1); 


De eerste regel creëert een object of instantie 
van class EditWindow met als titel ‘Simpele 
Editor’ en de tweede regel laat de zojuist ge- 
creëerde instantie van EditWindow op het 
scherm zien. Aangezien ‘SimpelEdit’ vanaf 
dit moment als applicatie onder Actor actief 
is kan deze ook werkelijk als editor gebruikt 
worden en kun je een optie uit zijn systeem 
menu activeren. De command processor 
maakt het dus mogelijk om op eenvoudige 
wijze snel een toevoeging of wijziging in de 
source code te testen. 


Zodra de testfase achter de rug is en de appli- 
catie naar behoren onder Actor werkt, kan 
men overgaan tot het creëeren van een stand- 
alone, gecompileerde versie voor de eindge- 
bruikers. Het creëeren van een stand-alone 
applicatie, staat onder Actor bekend als ‘sea- 
ling off’ applicatie en is een proces dat zich 
duidelijk onderscheidt van andere program- 
meer-omgevingen. Een Actor applicatie be- 
staat namelijk uit twee delen, een image file 
(IMA) dat het gecompileerde programma be- 
vat, en een executeerbare file (EXE) met de 
kernel van het Actor systeem en de Wind- 
ows resources waar het programma gebruik 
van maakt. Omdat alles in Actor gezien 
wordt als een object is het niet verwonderlijk 
dat de applicatie zelf ook een object is. Alle 
Actor applicaties moeten een class definiëren 
waarbinnen een main object gecreëerd 

wordt. Deze class staat bekend als de applica- 
tie class en moet een afgeleide zijn van de in 
Actor gedefinieerde ‘Application class’. 
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‚Als we van SimpelEdit uit het voorbeeld 
hierboven een stand-alone, Windows 3.0 ap- 
plicatie willen maken zullen we dus een afge- 
leide class van Application moeten definië- 
ren waarin een instantie van EditWindow 
wordt gecreëerd. Stel dat we deze afgeleide 
class SimpelApp noemen, dan moet Simpel- 
App tenminste een eigen init() methode be- 
vatten om de applicatie op te kunnen starten: 


Def init (self, commandStr) 


{ 
init (self:ancestor, commandStr) ; 
mainWindow := newMain(EditWindow, nil, 
“Simpele Editor”, nil); 
show (mainWindow, CmdShow) ; 


} 


De eerste regel verzendt een init() bericht 
naar de ‘ouder’ van SimpelApp (class Appli- 
cation). Deze verricht belangrijke systeemini- 
tialisaties die het mogelijk maken dat ook an- 
dere Windows-programma’s gedraaid kun- 
nen worden. De volgende regel creëert 
SimpelApp’s main window als een ‘overlap- 
ped window’ en kent dit object toe aan de in 
Application class gedeclareerde variabele 
mainWindow. Tenslotte wordt er een show() 
bericht verzonden naar het main window ob- 
ject zodat deze op het scherm verschijnt. De 
CmdShow variabele is globaal gedeclareerd 
en specificeerd het formaat waarin het wind- 
ow geopend dient te worden (open, iconic, 
etc.). Wanneer de gebruiker van SimpelEdit 
de sluiten-optie uit het menu kiest, zal Wind- 
ows een shouldClose() bericht naar de appli- 
catie sturen. Stel dat onze applicatie gebruik 
zou maken van bestanden dan zouden we 
dit bericht af kunnen vangen met een gelijk- 
namige methode: 








= Browser: EditWindow || 
Accept! Edit Search Doit! Inspect! Browse! Utility Templates Class Method 
SnapDialog 
Window 
ÁboutWindow 
TextWindow 
Edit Window 
WorkE dit 
BrowE dit 
DBBrowE dit a Ee 
DebugEdit 
{* Delete the selected text from the TextCollection, workText, and 
reset selection parameters. */ 
Def deleteSselText(self) 
{ if isSelText(self) 
then deleteText{workText, startLine, startChar, endLine, endChar); 
endLine := StartLine; 
end6har := StartChar; 
xPos := startChar -— leftChar; 
resetTop(self}; 
yPos := starttine -— topline; 
repaint(self); 
| “dirty := true; 
{_ endif; 
L_ “nil 
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Object 
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SimpleApp's objecten-structuur 


Application 
SimpelÂpp 






Def shouldClose(self) 


if shouldClose(self:ancestor) then 
bewaar bestanden... 
sluit bestanden af... 

else “nil; 

endif; 


} 


Nu het programmeerwerk achter de rug is, 
kunnen we overgaan tot het creëeren van de 
JMA file. Door de ‘seal-off’ optie uit het Ac- 
tor menu te kiezen wordt er een proces in 
werking gezet dat alleen die classes, metho- 
den en objecten aan het image file toevoegd 
welke nodig zijn voor de executie van de uit- 
eindelijke applicatie. Op de wat minder snel- 
le machines kan dit proces enige minuten in 
beslag nemen. De uitgebreide test mogelijk- 
heden binnen Actor zelf zijn dan ook geen 
overbodige luxe. De laatste stap is het creë- 
ren van de executeerbare (.EXE) file die de 
image moet gaan draaien en de resources be- 
vat. Deze resources worden gedefinieerd in 
resource file (.RC) en uiteindelijk aan de ker- 
nel (ACTOR.EXE) toegevoegd. 


COPY ACTOR.EXE SIMPELAP.EXE 
COPY USERAPP.RC SIMPELAP.RC 
RC SIMPELAP 
WIN SIMPELAP 


Wat overblijft is SIMPELAP.EXE en SIMPE- 
LAP.IMA; twee files van een aanzienlijke om- 
vang. Het bij de Actor meegeleverde ontwik- 
kelgereedschap is zeer functioneel. Zo heeft 
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de omgeving een gespecialiseerde editor 
(browser) voor het wijzigen van al bestaande 
of het implementeren van nieuwe classes. 
Deze tool kan als popup window vanuit de 
Workspace geactiveerd worden. ledere wijzi- 
ging van de code in een Browser wordt auto- 
matisch gecompileerd en opgeslagen op disk 
zodat eventuele fouten in een vroeg stadium 
aan het licht komen. 


‚De Browser is opgedeeld in totaal vier wind- 


ows. Een class window waarin een overzicht 
van de al bestaande classes. Een variabelen 


‚window met de gedefinieerde variabelen uit 


de geselecteerde class en zijn basis-classes. 
Een methode window met de object metho- 
den van de class en een edit window met de 
implementatie van de geselecteerde methode. 


window geeft niet alleen de foutmelding 
maar tevens een overzicht van de program- 
ma-executie in de vorm van methode-aanroe- 
pen zodat de locatie en oorzaak van de fout 
eenvoudiger te achterhalen is. Na het fixen 
van de bug is het mogelijk de executie van 
het programma vlak voor het punt dat de 
run-time error gedetecteerd werd te hervat- 
ten. Ondanks het grote assortiment aan clas- 
ses en de functionele tools die bij Actor mee- 
geleverd worden heeft deze omgeving toch 
een paar nadelen. Allereerst moet men zich 
een nieuwe taal eigen maken; in de program- 
meertalen Pascal en C/C++, eventueel aange- 
vuld met class libraries van derden, kan men 
immers ook Windows programmeren. Ver- 
der zorgt het executeerbare eindprodukt 
voor een behoorlijke aantasting van de schijf- 


ruimte. 

Wanneer de Actor omgeving een run-time er- 

ror in de code detecteert wordt automatisch 
een Dialog Window geopend. Een dergelijke 
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Selkey: zeg vaarwel tegen de ASCII-tabel 


Selkey is een Memory Resident programma waarmee u met één druk op een toets elke AS- 
CII-code geselecteerd en ingevoerd kan worden in het keyboard-buffer. Hierdoor is het 
omslachtige ''NumLock + Alt + ASCII-code" definitief verleden tijd. 


012345678911234567892123456 7893123456 7094125456 709 
Cvet « Hofke oPrre- AEN iT lee ear 
ACuéâaaäctee rf iAAErftôod 


ùuOUCE FRSATOUTIN eri gier 3 


Bman". 





à Fit 
rela ult rif ral Par nEopTSensastn=+>£ ss 


nn 12345678931234567894123456709 


Selkey moet geladen worden vóórdat U het hoofd- 
programma laadt waarin u de ASCII-codes wilt gaan 
gebruiken. Na indrukken van de Hot-Key (in dit ge- 
val Alt + 5 op num-pad) verschijnt een ASCII-tabel 
op het scherm en kan met de cursortoetsen het ge- 
wenste teken geselecteerd worden. Na een druk op 
return wordt dit teken in de keyboard-buffer gezet 
en zo overgedragen aan het hoofd-programma. Een 
getal zal een overeenkomstig aantal toetsen invoeren 
(een nul 10 maal). Na escape wordt Selkey verlaten 
zonder een teken in te voeren. 


WAARSCHUWING: Er is een aantal programma’s, 
die hun eigen keyboard routines installeren. Dit kan 
problemen opleveren en mogelijk een systeem crash 
veroorzaken. Met bijvoorbeeld WP 4.2 werkt dit pro- 
gramma niet. Bij met Turbo Pascal 5.5 en met TP 5.5 
geschreven programma’s zijn geen problemen opge- 
treden. 


Opmerking: Dit programma kan ook dienen als basis 
voor zelf te schrijven TSR-programma’s. Alleen de 
procedure User Routine en de in deze procedure ge- 
bruikte variabelen dienen vervangen te worden, het- 
geen in de listing is aangegeven. 


H.M. Leeflang 
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{$A-,B-,D-,E-,F+,I-,L-,‚N-,0O-,R-,S-,V+} 
{$M 2000, 200, 200} 


PROGRAM Selkey; 


(C) 1991 H.M. Leeflang 


Terrastraat 26 
1829 XM Oudorp 
Taal: Turbo Pascal 
Versie: 5.5 } 


Adres: 


USES Crt, DOS; 

{ Alle variabelen zijn globale variabelen omdat 
dan niet bij elke oproep van het TSR-programma 
opnieuw ruimte in het geheugen gereserveerd 
hoeft te worden. } 

{ Variabelen t.b.v. het TSR programma. } 

CONST 4 

Programma _ Naam: STRING[8] = ’SELKEY' ; 


ScanCode 
KeyMask = $08; 


Sh right $01 
VAR 
KbdIntVec: PROCEDURE ; 


{ De oude key-board } 
{ interrupt } 


TsrBezig: Boolean; 


{ Variabelen t.b.v. User Routine } 
CONST 

Normal = Black SHL 4 + White; 
Invers = LightGray SHL 4 + Black; 
Hex: STRING[16] = ’0123456789ABCDEF' ; 


{Zelf te wijzigen} 
{ Idem } 


TYPE 

Scherm Ptr = “Scherm Array; 
Scherm . Array = ARRAY [1..19, 80] OF Word; 
{Aangezien het programma den regels 1 t/m 19 
gebruikt worden alleen deze regels opgeslagen. 
Indien wel het hele scherm gebruikt wordt dient 
hier 25 (of 53 i.g.v. VGA/EGA scherm in 53-regel 
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mode) ingevuld te worden. } 


VAR 
Scherm Pointer: Scherm Ptr;{ Wijst naar actueel} 


{ video geheugen } 
Bewaar: { Bewaren scherm } 
RECORD { informatie } 


Scherm: Scherm Array; 
Xx, Y, Attr: Byte; 
END; 
Klaar: Boolean; 
R: Registers; 
Kbd Next Key: Byte ABSOLUTE 50000: $041C; 
Kbd Buffer: ARRAY [O..15] OF RECORD 
Asc, Scan: Byte 
END ABSOLUTE $0000: $O41E; 
{ De bovenstaande variabelen worden gebruikt om 
‚ een toets in de keyboard-buffer op te slaan. 
| Zie de procedure Fop Kbd Buffer. } 
| Huidig Kar, Vorig Kar, Key, B: Byte; 


| ($F+} { Zeer belangrijk } 


PROCEDURE User Routine; 
{ Vervang eventueel deze procedure door een zelf 
geschreven procedure. } 


PROCEDURE Fop Kbd Buffer(Kar, Aantal: Byte); 

{ In deze procedure wordt het teken kar op de 
volgende positie in de buffer gezet. Aantal 
geeft aan hoe vaak dit dient te gebeuren. 


| | BEGIN 
| WEILE Aantal > O DO 
| BEGIN 
Kbd Buffer[Kbd Next Key DIV 2 - 15].Asc := 
Kar; 
Inc(Kbd Next Key, 2); 
IF Kbd Next Key > 60 THEN 
Kbd Next Key := 30; 
Dec (Aantal) ; 
END; 
| | END; 


PROCEDURE Print Op(X, Y, A: Byte; 

S: STRING); 
| { Deze procedure print een tekst-string op positie 
| (X, Y) op het scherm in kleur A. 


BEGIN 
GotoXy (X, Y); 
TextAttr := A; 
Write (S) ; 
END; 


PROCEDURE Print Char(Kar, Attr: Byte) ; 

{ De standaard procedure Write toont niet alle 
ASCII codes onder de 32. Deze procedure toont 
het teken Kar op de positie van de cursor met 
attribute Attr. 


BEGIN 
WITH R DO 
BEGIN 
AH := 9; 
AL := Kar; 
BH := 0; 
CX := 1; 
BL := Attr; 
Intr ($10, R); 
END; 
END; 


PROCEDURE Print Cursor(X, A: Byte); 

{ Deze procedure maakt een cursor, bestaande uit 
een Space, het teken en een Space. De kleur 
wordt bepaald door het byte A. 

} 

BEGIN 
Print Op( (X MOD 16) * 3 + 2, 
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(X DIV 16) + 2, A, #32); 
Print Char(X, A); 
Print Op(Succ(WhereX), WhereY, A, 
END ; 


#32) ; 


PROCEDURE Maak Scherm; 
{ Deze procedure wist eerst een deel van het 
scherm en toont dan de ASCII-tabel. 


} 


BEGIN 
WITH R DO 
BEGIN 
AX := 6 SHL 8; 
CX := 0; 
DX := 18 SHL 8 + 50; 
BH := Normal; 


{ Wis alleen regels 1 t/m 19 en Kollom 1 t/m 50.} 
Intr($10, R); 


END; 
FOR B := 1 TO 16 DO 
BEGIN 
Print Op(Pred(B * 3), 1, Normal, ’ ’ + 
7 _Hex[B] + ’ ’); 
Print Op(1l, Succ(B), Normal, Hex{[B]); 
END; 
FOR B := 0 TO 255 DO 


Print Cursor (B, Normal); 
END; 


PROCEDURE Toon Informatie; 

{ Deze procedure toont eerst een inverse cursor op 
het huidige karakter en wist de inverse cursor 
op het vorige karakter. Bovendien wordt een 
informatie regel met de ASCII code en het 
huidige karakter getoond. 


BEGIN 
Print Cursor(Huidig Kar, Invers); 
IF Huidig Kar <> Vorig Kar THEN 
Print Cursor(Vorig Kar, Normal); 
Print Op(1l, 19, Normal, ‘ASCII code: ’); 
Write(Huidig Kar: 3, ’ ($’ + 
Hex[Succ(Huidig Kar SHR 4)] + 
Hex[Succ(Huidig Kar MOD 16)] + 
£) Char: ’Jj 
Print Char(Huidig Kar, Normal); 
Vorig Kar := Huidig Kar; 
END; 
BEGIN 
WITH Bewaar DO 
BEGIN 
X := WhereX; 
Y := WhereY; 
Attr := TextAttr; 
Scherm := Scherm Pointer”; 
END ; 
{ Bewaar de informatie, 
scherm stond. } 
Maak Scherm; 
Klaar := False; 
REPEAT 
Toon Informatie; 
Key := Ord(Readkey) ; 
CASE Key OF 


die oorspronkelijk op het 


27: Klaar := True; 
13: BEGIN 
Fop Kbd Buffer (Huidig Kar, 1); 
Klaar := True; 
END; 
48..57: BEGIN 
IF Key = 48 THEN Key := 10 
ELSE Key := Key - 48; 
Fop_Kbd Buffer(Huidig Kar, key); 
Klaar := True; 
END; 
O: CASE Readkey OF 
#75: Dec(Huidig Kar); {Left} 
#77: Inc(Huidig Kar); {Right } 
#72: Dec(Huidig Kar, 16); {Up} 
#80: Inc(Huidig Kar, 16); {Down} 
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#71: dec(Huidig Kar, 17); {Home} 

#79: Inc(Huidig Kar, 15); {End} 
#73: Dec(Huidig Kar, 15); {PgUp} 
#81: Inc(Huidig Kar, 17); {PgDn} 

END; n 
END; 
UNTIL Klaar; 
WITH Bewaar DO 


BEGIN 
Scherm Pointer” := Scherm; 
GotoXy (X, Y); 
TextAttr := Attr; 

END; 


{Herstel de oude scherm-informatie.} 
END; {User Routine} 
{ De nieuwe Keyboard interrupt. } 


PROCEDURE NewKbdInt; INTERRUPT; 

{Deze procedure komt in de plaats van de stan- 
daard keyboard interrupt. Indien de Hot-Key 

„ (gedefinierd door ScanCode en KeyMask) inge- 
drukt wordt zal het programma User Routine 
opgeroepen worden. In alle andere gevallen wordt 
de oude keyboard interrupt uitgevoerd. 


BEGIN 
IF NOT TsrBezig AND 
(Port[$60] = ScanCode) AND 
((Mem[$0000: $0417]} AND 


KeyMask) = KeyMask) THEN 
BEGIN 

B := Port{[$61]; 

Port[$61] := B OR $80; 
Port[$61] := B; 


{ Reset het toetsenbord } 
INLINE ($FA); { CLI } 


Port[$20] := $20; 
INLINE ($FB); { STI } 
TsrBezig := True; 


INLINE ($FA); 
User Routine; 
INLINE ($FB); 
TsrBezig := False; 
Exit; 
END 
ELSE 
BEGIN 
INLINE ($9C); 
KbdIntVec; 
Exit; 
END; 
END; 
(SF-} 


FUNCTION Al Geladen(Huidig Ident: Pointer): 
Boolean; 
{Deze functie test of SelKey al geladen is. Dit 
gebeurt door de eerste keer een vrije interrupt 
adres naar de identificatie string te laten 
wijzen. Elke keer, dat het programma opnieuw 
geladen wordt, zal gekeken worden of er een 
interrupt adres gevuld is met een adres en of de 
string op dit adres gelijk is aan de identifica- 
tie string. 
} 
VAR 
Vorig Ident: Pointer; 
Vector: Word; 


BEGIN 
Al Geladen := False; 
FOR Vector := $60 TO $67 DO 
{ Dit zijn de vrije interrupts. } 
BEGIN 


GetIntVec(Vector, Vorig Ident); 

IF Vorig Ident = NIL THEN 

BEGIN 
SetIntVec(Vector, Huidig Ident); 
Exit; ae 

END ; 

IF STRING(Vorig Ident*) = 
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STRING (Huidig Ident”) THEN 
BEGIN 
Al Geladen := True; 
Exit; 
END; 
END ; 
END; 


{ ** Begin van het programma. ** } 
BEGIN 
IF Al Geladen (@Programma Naam) THEN 
WriteLn(Programma Naam + ’ al geladen.') 
ELSE 


BEGIN 
TextAttr := TextAttr + Blink; 
Writeln(’ * %* * %* % ’ + Programma Naam + 
Ik ok KK H/); hid 
TextAttr := TextAttr AND NOT Blink; 


{ Vervang onderstaande regels bij een zelf ge- 
schreven programma. 
Laat Scherm Pointer naar het begin van het 
videoscherm wijzen. } 
IF ((Mem[0000: 1040] AND 48) <> 48) THEN 
Scherm Pointer := Ptr($B800, 0) 
ELSE Scherm Pointer := Ptr($B000, 0); 
WriteLn(’'ASCII code selectie programma.’ ); 
WriteLn('’Met Alt 5 (NumPad) kunt U dit’ + 
' programma activeren.’ ); 
WritelLn; 
Huidig Kar := 0; 
Vorig Kar := 0; 
{ Bewaar de oude keyboard interrupt en vervang 
door nieuwe keyboard procedure. } 
GetIntVec($09, @KbdIntVec); 
SetIntVec($09, Addr (NewKbdInt)) ; 
TsrBezig := False; 
Keep (0) ; 
END; 
END. 
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Turbo Pascal voor Windows 


Een tijdje geleden introduceerde Borland in het World Trade Centre te Amsterdam Turbo 
Pascal voor Windows. Voor Windows’ kan hier op twee manieren worden uitgelegd. Tur- 
bo Pascal voor Windows (TPW) is namelijk een echte windows-applicatie, maar ook is het 
mogelijk om er windows-applicaties mee te schrijven. TPW wordt geleverd met Object- 
Windows. Dit is een applicatie-framework dat u in staat stelt om op een eenvoudige ma- 
nier windows-applicaties te ontwikkelen. Het gebruik van de SDK is hiervoor niet nodig! 


_ Turbo Pascal leit; 


File Edit Search Bun Compile Options Window ala 


const 


type 





end: 


PBitApp 
TBitapp 











e3tpwowldemosivdigapp.pas bg 
5] eAtpwowldemos\bitbna 


DLLName = 


About Lurbo Pascal 


‘BITBTN.DLL'; 


em_DLLNotFound = 1; 


PBitWindow = “TBitbindou; 
TBitWindou z object(TDIgbindow) 
procedure Ves(var Msg: TMessage): 
virtual id First + id Yes: 
procedure No(var Msg: TMessage): 
virtusl id_First + id_No: 
procedure Ok(var Msg: TMessage) : 
virtual id_First + id_OK; 


procedure Cancel(var Msg: TMessage) : | : 
virtual id First + id Cancel; 


= “TBitapp; 
z object(TApplication) 


Lib: THandle; 
constructor Init(AName: PChar); 


Turbo Pascal for Windows 


Het grote voordeel van een windows-hosted 
compiler als TPW is dat een applicatie ge- 
schreven, gedebugd, gecompileerd en ge- 
rund kan worden in Windows zelf. Daarbij 
levert Borland een framework mee dat het 
veel eenvoudiger maakt om Windows-appli- 
caties te schrijven. Dit framework, Object- 
Windows, geeft u vooraf gedefinieerde objec- 
ten die u alleen hoeft te instantiëren. Wie wel 
eens het overbekende ‘Hello World’ voor 
Windows heeft gezien weet hoe moeilijk het 
is om een Windows-applicatie te schrijven. 
Om dit in een window te toveren heeft u 
minstens honderd regels code nodig die zorg 
dragen voor het gedrag van zo’n window. 
Zo’n window moet opnieuw getekend wor- 
den indien een overlappend window geslo- 
ten wordt enzovoort. ObjectWindows neemt 
u al deze moeilijkheden uit handen. Door za- 
ken als windows in objecten te plaatsen die u 
alleen hoeft te initialiseren hoeft u zich geen 
zorgen te maken of zo’n window wel op- 
nieuw getekend wordt, die zorg lag bij de 


programmeurs van Borland. Een program- 


ma als ‘Hello World’ wordt dan vereen vou- 
digd tot de volgende code: 





Program Hello; 
Uses WObjects, WinTypes, WinProcs; 


Type THelloApp = object (TApplication) 
Procedure InitMainWindow; 
virtual; 
End; 

Procedure THelloApp.InitMainWindow; 
Begin 

MainWindow := New (PWindow, Init (Nil, 
'Hello World’ )); 
End; 


Var HelloApp: THelloApp; 


Begin 

HelloApp. Init (’ HelloApp' ) ; 

HelloApp. Run; 

HelloApp.Done; 
End. 
Het window dat dit programma genereert 
heeft alle capaciteiten die een normaal win- 
dow zou moeten hebben. U kunt het versle- 
pen, vergroten en verkleinen, sluiten enzo- 
voort. In feite is het een gewone windows-ap- 
plicatie, omdat ze ook in de lijst voorkomt 
wanneer men op Ctrl-Esc drukt. Dit alles 
wordt verwezenlijkt in een programma van 
niet meer dan vijftien regels! 


Objecthiërarchie 


Het aantal objecten dat Borland meelevert in 
ObjectWindows is in totaal zo’n vijfentwin- 
tig stuks, waarvan u zelf weer eigen objecten 
kunt afleiden. Niet alle objecten zijn direct 
bruikbaar om instanties vanaf te leiden, 
maar worden gebruikt als een soort abstracte 
basisobjecten. Van TObject worden bijvoor- 
beeld TApplication, TWindowsObject en 
TScroller afgeleid, terwijl een instantie van 
TObject niet snel zal worden aangemaakt. 
TWindowsObject is dan weer een abstract 
object type dat als baseobject geldt voor 
TDialog en TWindow. TDialog op haar beurt 
is dan weer een baseobject voor TDIg Win- 
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dow, TFileDialog en TInputDialog. Het voor- 
deel van zo’n abstract basisobject is natuur- 
lijk hergebruik van code. Er wordt eerst een 
object gedefiniëerd dat de basisprincipes aan- 
geeft, waarna een aantal afgeleide objecten 
specifieker gedefiniëerd worden. 


Uses WinCrt; 


| Buiten het programmeren met behulp van 
ObjectWindows heeft Borland nog een ande- 
| re manier ingebouwd om windows-applica- 
ties te schrijven. Wanneer u oude textbased 
DOS-applicaties bezit kunt u door middel 
van het vervangen van ‘Uses Crt; door ‘Uses 
WinCrt/ een windows-applicatie genereren. 
Let wel, dit kan alleen met textbased pro- 
gramma’s. Een nog veel eenvoudigere ma- 

| nier om dan ‘Hello World’ te schrijven is het 
volgende: 


Program Hello; 
Uses WinCrt; 


| Begin 
| WriteLn (’Hello World’); 
End. 


De uitkomst is niet precies hetzelfde als de 
eerder gegeven ‘Hello World’, omdat daar 
niet in het window werd geschreven, terwijl 
dat hier wel het geval is. Ook hier krijgt u 
een window dat is te verslepen, te vergroten, 
te verkleinen, enzovoort. U kunt zelfs door 

| de tekst heenscrollen. Uw oude applicaties 
zijn dus nog niet verloren zolang ze text-ba- 
sed zijn. 


| Debugger 

Turbo Pascal voor Windows is in het bezit 
van een debugger die het debuggen van Win- 
dows-applicaties ondersteunt. Dit is het eni- 
ge aspect van TPW dat niet echt windows- 

| hosted is. Het is namelijk een text-based pro- 
‚gramma. Omdat Windows low-level 
‚applicaties, zoals een debugger en een profi- 
ler niet toestaat als echte Windows-applica- 
ties, heeft Borland zijn heil gezocht in het 
text-based maken van de debugger. Deze is 
overigens wel alleen op te roepen vanuit 
„Windows. De debugger ondersteunt het ge- 
‚bruik van twee monitors, zodat u op het ene 

| scherm Windows in beeld hebt, terwijl op 
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het andere scherm de debugger aan het werk 
is. Het irritante display-swapping is dan ver- 
leden tijd. Een andere zeer handige feature 
die de debugger ondersteunt is backtracing, 
het teruggaan in het programma. De debug- 
ger is zeer uitgebreid en is de speciale Win- 
dows-versie van de Turbo Debugger. 


WRT 

Net als bij Borland C++ wordt ook bij TPW 
de Whitewater Resource Toolkit meegele- 
verd. De WRT maakt het mogelijk om resour- 
ces als bitmaps en dialog boxes te editen zon- 
der dat de source waarin zij voorkomen ge- 
hercompileerd hoeft te worden. De WRT kan 
de benodigde informatie zo uit de .EXE file 
halen. Andere files die met de WRT bewerkt 
kunnen worden zonder te hercompileren 

zijn RES, .DLL,.H, ICO, „CUR en „BMP-fi- 
les. Files die wel opnieuw gecompileerd moe- 
ten worden zijn .DLG en .RC-files. Met de 
WRT is het dus mogelijk om bijvoorbeeld 

een eigen cursor te tekenen, een about-box te 
veranderen, een icoon of een dialog box te 
ontwerpen etcetera. Dit alles zonder dat er 
ook maar een regel code geschreven hoeft te 
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== Programmabeheer zi) 


Bestand Opties Venster 2? 


Turbo Pascal 


Search _Run ÄSompile _ 

e\tpwAdocdemos\choxtest.pas 

procedure InitMainindow; virtual; 
end: 


Options 


PTestllindow = “TestlWindow; 
TestWindow = object(TWindow) 
LB1: PListBox; 
CB1, CB2, CB3: PComboBox; 


constructor Init(AParent: PWindowsÒt 


procedure Setuplindow; virtual; 
procedure IDBN1(var Msg: TMessage); 
procedure IDBN2(var Msg: TMessage):; 





worden. De WRT is niet bij Borland zelf ont- 
wikkeld, maar is gekocht van de Whitewater 
Group. De WRT is helaas in Actor geschre- 
ven, hetgeen impliceert dat het allemaal wat 
trager gaat. De tool is echter zeer handig. 


Windows-mogelijkheden 
De applicaties die men met TPW kan schrij- 
ven zijn niet beperkt tot ‘fancy looking pro- 
gramma’s. TPW ondersteunt bijvoorbeeld 
het schrijven van Dynamic Link Libraries 
(DLL’s). Dit zijn Windows-specifieke libra- 
ries die door meerdere applicaties gebruikt 
kunnen worden terwijl er maar een zo’n li- 
brary in het geheugen aanwezig is, de debug- 
ger is hier een voorbeeld van. Ook is het mo- 
gelijk om applicaties te ontwikkelen die ge- 
bruik maken van Dynamic Data Exchange 
(DDE). ledere gebruiker van Windows kent 
wel het clipboard, een plaats waar tijdelijk 
_een hoeveelheid informatie in opgeslagen 
kan worden die een andere applicatie weer 
kan opvragen. De listings die bijvoorbeeld in 











Window Balije 
Index 
Topic search 


ShifttF1 
Ctrl+F] 
Using help 


Compiler directives 


ObjectWindows 


Procedures and Functions 


Reserved words 
Standard units 

Turbo Pascal language 
Windows API 


About Turbo Pascal... 





dit artikel staan zijn vanuit TPW via het clip- 
board naar Word for Windows getranspor- 
teerd. Met DDE gebeurt dit achter de scher- 
men. Als zou worden aangegeven dat een be- 
paalde file uit TPW een dynamische link 
naar dit artikel zou moeten hebben en een 
verandering in die file zou worden doorge- 
voerd, dan zou deze verandering automat- 
isch in het artikel terechtkomen. TPW onder- 
steunt helaas niet het schrijven van applica- 
ties die gebruik maken van OLE. Dit is een 
andere manier van dynamische doorvoering 
van veranderingen die Microsoft in de vol- 
gende release van Windows zal verwezen lij- 
ken. Met een upgrade van TPW moet dan 
ook rekening worden gehouden wanneer Mi- 
crosoft uitkomt met Windows 3.1. 


Voordelen 

Het schrijven van Windows-applicatie 
brengt voor de gebruiker en voor de pro- 
grammeur een aantal voordelen. De gebrui- 
ker zal een Windows-applicatie eerder onder 


ee 


80 


DOS SPECIAL 3/91 


B an en 
























Edit Search Run Compile Options 





virtual wm First + wm_CtlColor:; 


virtual wm First + wm _ Paint; 


procedure FlashButton(Key: Char); 

procedure CalcKkey(Key: Char): 

procedure Clear; 

procedure UpdateDisplay; virtual; 
end; 


{ Calculator application object } 





TCalcApp = ob 


. . et ( 





ject(TApplica 


tion) 





171 Insert 


_de knie hebben, omdat alle Windows-appli- 
caties dezelfde ‘look and feel’ hebben. Om- 
‚dat Windowsapplicaties device-independent 
zijn hoeft de gebruiker bij het installeren van 








zo’n applicatie geen lange vragenlijst in te 
vullen over het gebruikte systeem. Dit voor- 


‚deel geldt natuurlijk ook voor de program- 


meur, omdat Windows deze zaken voor haar 
rekening neemt. Geschreven code werkt dus 


‚zonder problemen op een groot aantal com- 
‚puters. Verschillende muizen, printers en 
monitors worden allemaal door Windows 
‚van de programmeur afgeschermd. Win- 
‚dows-specifieke kenmerken als DDE, multi- 


tasking en groot geheugengebruik zijn ook 


voor programmeur en gebruiker van belang. 


Conclusie 


Borland heeft met TPW een duidelijke stap 
‚vooruit gezet in het ontwikkelen van Win- 
‚dows-applicaties. TPW maakt het de pro- 

_grammeur een stuk eenvoudiger dan de com- | 


_binatie van de System Development Kit en 


een C-compiler. Niet alleen het Windows- 
hosted zijn van de compiler is een voordeel, 
ook het meegeleverde framework Object- 
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e\tpwAowldemos\calc.pas 
procedure GetlWindowClass(var AlndClass: TiindClass); 
procedure WMControlColor(var Msg: TMessage); 


procedure WMPaint(var Msg: TMessage): 


procedure DefChildProc(var Msg: TMessage); virtual; 
procedure DefCommandProc(var Msg: TMessage); virtual; 
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Windows maakt het een stuk makkelijker 
om Windows-applicaties te schrijven. 


De WRT is natuurlijk een uitermate handige 
tool en ook de debugger geeft geen reden tot 
klagen. Door de vernieuwingen die Micro- 
soft zal toepassen in Windows 3.1 wordt het 
ook mogelijk om een echte Windows-hosted 
debugger te lanceren, waarna een profiler 
ook wel te verwachten zal zijn. Wanneer u 
het prijsverschil ziet van Borland’s Turbo 
Pascal for Windows en de SDK + C-compiler 


‚zult u helemaal uw vlucht tot TPW nemen. 


De laatste combinatie (zonder WRT) kost 
zo’n tweeduizend gulden, terwijl u TPW 
voor zo’n vijfhonderd gulden in uw bezit 


‚kunt krijgen. 
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je] _____dBaseViewer _____ [r[af 


File Find Into 


Files in 


syssyns.dbf 
systabls.dbf 
systimes.dbf 
sysvdeps.dbf 
sysviews.dbf 


Ket 


Progr arumabeheer 


c:\db 40 








dBase Viewer voor 


Windows 


Hoe mooi de Windows-omgeving ook is om in te werken, men zal toch regelmatig naar de 
DOS prompt terug moeten om een van die kleine tools te activeren die (nog) niet binnen 
de Windows-omgeving voor handen zijn. Indien u een intensieve dBase-gebruiker bent 
kan de in dit artikel opgenomen listing van een dBase viewer u wellicht van dienst zijn. 
Dit programma geeft de mogelijkheid dBase bestanden te bekijken en hier eenvoudige 


zoekacties in te verrichten. 


__sysauthdbt__ [sfel 


File Find Into 





Record ü# 1 


GRANTOR: SYSTEM 
z SYSTABLS 
ni 








Ss 


Xz 
PUPDATE: 
GRANTOPT: Y 





File Find Info 


[=[____systimesdbt____ [vfel 
Record # 1 
NAME: SYSTABLS 


DATEUP: 18-88-1998 
TIMEUP: 66:60:09 


ander dE 





Indien u over een 386-computer beschikt is 
het mogelijk dBase zelf in een Window te 
draaien; dit pakket is echter dermate geheu- 
gen-intensief dat dit op veel systemen proble- 
men geeft. dBview neemt slechts 20 KiloByte 
in beslag en kan dus zonder problemen na- 
ast de grotere applicatie’s in Windows actief 
zijn. Het programma kan bovendien meerde- 
re malen geladen worden zodat het mogelijk 
wordt records uit verschillende dBase bestan 
den met elkaar te vergelijken. 


De listing van het dBview programma is van 
een behoorlijke omvang en verdient dus eni- 
ge toelichting. De opbouw ziet er in pseudo- 
code als volgt uit: 


WinMain() 
Initialiseer en open het mainwindow 
Zolang het main window geopend is: 
Stuur berichten door naar de 
verschillende window functie's 


WndProc( bericht }) 
Doe bericht: 
PAINT: 
Laat de inhoud van het huidige 
record zien in het main window 


KEYDOWN : 
Huidige record wordt 
Home — Eerste record 


PgqUp - Vorige record% 
PgDn — Volgende record 
End — Laatse record 
Stuur PAINT bericht 
OPEN: 
Start de Open dialog 
Laad het dBase bestand 
Maak eerste record de huidige 
Stuur PAINT bericht 
FIND: 
Start de Find dialog 
Stuur PAINT bericht 
INFO: 
Start de Info dialog 
OQUIT: 
Programma afsluiten 


Net als de main() functie in standaard C pro- 
gramma’s moet iedere Windows applicatie 
een WinMain() functie bevatten. Deze func- 
tie controleerd eerst op eventuele eerdere in- 
stanties van het programma. 


if ( 
{ 
// Initialiseer applicatie 
WndClass.hCursor = LoadCursor ( 


\hPrevInstance } 


registerClass (&WndClass) ; 
} 


Aangezien alle instanties van het program- 
ma van dezelfde window class gebruik kun- 
nen maken, hoeft deze class slechts bij de 
eerste instantie geregistreerd te worden. Ver- 
volgens wordt een main window gecreëerd 
met de titel: "dBase Viewer" en het program- 
ma komt in een message-loop terecht. | 
Alle berichten bedoeld voor de dBview appli- 
catie worden in deze loop door DispatchMes- 


namme 
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_sage() verspreid over de verschillende win- 


| [=| 
Foe tiene TT mr de z|- 
| while ( GetMessage(&msg, NULL, O0, 0) }) Find: 

ak U 

| TranslateMessage( &msq ); 


DispatchMessage ( &msq ); [] Case-sensitive 





} 


Zo zullen de berichten voor het main win- 
dow doorgestuurd worden naar WndProc() wee 
en de berichten voor de dialog boxes naar de 1991, Dos Special 


betreffende dialog functies. Name of File: _systimes.dbf 
x Last Updated: 16-65-88 
n : Header Size: 129 bytes 
Het programma is geschreven in de Borland Record Size: 27 bytes 


C++ omgeving, maar is met weinig aanpas- Number of Fields: 3 
sing geschikt te maken voor bijvoorbeeld de handbak 
Microsoft 6.0 / SDK combinatie. 





;DBVIEW.DEF #define MAXFIELDS 20 
#define MAXFIND 20 
NAME DBV IEW 
DESCRIPTION 'dbview’ // Header info van het dBase bestand. 
EXETYPE WINDOWS „struct DBHEADER { 
CODE PRELOAD MOVEABLE unsigned char Version; 
DATA PRELOAD MOVEABLE MULTIPLE char Year, Month, Day; 
HEAPSIZE 8192 long RecCount; 
STACKSIZE 5120 int HeaderSize; 
EXPORTS WndProc @1 int RecSize; 
OpenDlg e2 char Reserved1[3]; 
FindDlg @3 char LanInfo[13]; 
InfoDlg e4 char reserved2[4]; 
}; 


// Field info van het dBase bestand. 
struct DBFIELD { 
char Namel[ll], Type; 
long Address; 
unsigned char Length; 
char Decimals; 
char LanInfol[2]; 
char WorkArea; 
char Reserved1[2]; 
char SetFieldsFlag; 
Reserved2 [8]; 


‚EOF DBVIEW.DEF 


// DBVIEW.H 


#define IDM QUIT 101 
#define IDM ABOUT 102 
#define IDM OPEN 103 
#define IDM FIND 201 
#define IDM INFO 301 


IDC FILES 401 
#define IDC PATH 402 


#define IDC LISTBOX 403 long FAR PASCAL WndProc(HWND, unsigned, WORD, LONG) ; 


void dbPaint (HWND) ; 
void dbLoad (HWND) ; 
HANDLE FAR PASCAL OpenDlg(HWND, unsigned, WORD, 
LONG) ; 
void UpdateListBox (HWND) ; 
void SeparateFile(LPSTR, LPSTR, LPSTR) ; 
BOOL FAR PASCAL FindDlg(HWND,WORD, WORD, LONG) ; 
BOOL FindStr(PSTR) ; 

: zE BOOL FAR PASCAL InfoDlg(HWND,WORD, WORD, LONG) ; 
re EEK En void DToString (PSTR, PSTR) ; 

an, void MToString (PSTR,PSTR) ; 

| void LToString(PSTR,PSTR) ; 


#define IDC EDIT 501 
#define IDC CASE 502 





#define IDC FILENAME 601 
#define IDC LASTUPD 602 
#define IDC HSIZE 603 
#define IDC RSIZE 604 


void CToString(PSTR,PSTR, unsigned char); 
void Error (HWND, LPSTR) ; 


/ #define szAppName dbvienClass // EOF DBVIEW.H 
#define FIND 1 
#define INFO 2 


// Maximum aantal velden per record. 





en 


, DOS SPECIAL 3/91 83 





Nn 


dBview 


// DBVIEW.RC // DBVIEW.C 
finclude <windows.h> #Hinclude <windows.h> 
#Hinclude "dbview.h" #Hinclude <stdio.h> 
Finclude <string.h> 
IN ---rnnenenen eeen finclude "dbview.h" 
IJ -nenennneereneneneennnenenenenvenenenenenennen 
dbMenu MENU 
BEGIN 
POPUP "File" char str{[255]; 
BEGIN char buf{[255]; 
MENUITEM "&Open'", ZDM OPEN 
MENUITEM "E&xit'', IDM QUIT // Handle naar huidige dBase bestand. 
END FILE *dbHandle; 
MENUITEM "&Find'"', IDM FIND 
MENUITEM "&Info', IDM INFO // Handle naar de buffer waar het huidige 
END // record in opgeslagen wordt. 
HANDLE hRecBuf = NULL; 
I-nmenenenenenenenneneneneneeneneneneeennnnnen 
// Positie van het eerste record in het 
// dBase-bestand. 
Open DIALOG 10, 10, 135, 90 HANDLE FirstRecPos = NULL; 
STYLE WS POPUP | WS DLGFRAME 
BEGIN m struct DBHEADER dbHeader; 
LTEXT "&Files in", IDC FILES, 5, 5, 32,10 struct DBFIELD dbField{[MAXFIELDS] ; 
LTEXT ""', IDC PATH, 40, 5,100, 10 
LISTBOX, IDC LISTBOX, 5,20, int nrFields; 
70,56, long CurRecord = 0; 
WS _TABSTOP |WS_VSCROLL int dbLoaded = 0; 
DEFPUSHBUTTON "Open", IDOK, 80,25, 50,14 
PUSHBUTTON "Cancel", IDCANCEL, 80,45, 50,14 // eenen eenen emee 
END : 
static HANDLE hInst; 
IJ -onnnneereneereneenennnnnenenneneenenvenneneen 
#pragma argsused 
int PASCAL WinMain (HANDLE hInstance, 
FIND PIALOG 10,10,115,65 HANDLE hPrevInstance, 
STYLE WS POPUP | WS _DLGFRAME LPSTR lpszCmdLine, 
BEGIN int nCmdShow) 
LTEXT "Find: " -1l, 5, 5, 40, 8 { 
EDITTEXT IDC EDIT, WNDCLASS WndClass; 
5,15,100,12, HWND hWnd; 
ES AUTOHSCROLL MSG msg ; 
CHECKBOX "Case-sensitive'"',IDC CASE, 5,30, 
80,10, mn hInst = hInstance; 
BS_AUTOCHECKBOX 
DEFPUSHBUTTON "Find", IDOK, 5,45, 50,14 // Registreer alleen de eerste instantie 
PUSHBUTTON "Cancel", IDCANCEL, 60, 45, // van het programma. 
50, 14, 
END if (!'hPrevInstance) 
{ 
//---erenmenmenmernneveenvvervemmve—eneTeesm=mn // Definieer de nieuwe Window class. 
WndClass.hCursor = LoadCursor (NULL, 
INFO DIALOG 10, 10,200, 125 IDC ARROW) ; 
STYLE WS POPUP | WS _DLGFRAME WndClass.hIcon = NULL; 
BEGIN WndClass.chbClsExtra = 0; 
CTEXT '"dBase Viewer" -l, 10, 10,190, 8 WndClass.cbWndExtra = 0; 
CTEXT "1991, Dos Special" „1, 10, 20,190, 8 WndClass.lpszMenuName = "dbMenu'"; 
RTEXT "Name of File: " „1, 10, 35, 90, 8 WndClass.lpszClassName= szAppName; 
RTEXT "Last Updated: " -1, 10, 45, 90, 8 WndClass.hbrBackground= GetStockOb ject ( 
RTEXT "Header Size: " -1, 10, 55, 90, 8 WHITE BRUSH) ; 
RTEXT "Record Size: " -1l, 10, 65, 90, 8 WndClass.hInstance = hInstance; 
RTEXT "Number of Fields: " -1l, 10, 75, 90, 8 WndClass.style = 
RTEXT "Number of Records: " -1l, 10, 85, 90, 8 CS VREDRAW | CS _HREDRAW; 
LTES VR, IDC FILENAME, 110, 35, 90, 8 “_WndClass.lpfnWndProc = WndProc; 
LTEXT "'", IDC LASTUPD, 110, 45, 90, 8 
LTEXT '%, IDC HSIZE,110, 55, 90, 8 // Registreer de nieuwe class in Windows 
LTEXT "", IDC RSIZE,110, 65, 90, 8 
LEET 75, IDC FIELDS,110, 75, 90, 8 if (!RegisterClass(&WndClass)) 
LTEXT "", IDC RECORDS, 110, 85, 90, 8 return FALSE; 
DEFPUSHBUTTON "OK" IDOK, 70, 105, } 
60, 14, 
END hWnd = CreateWindow( 
: szAppName, // Eigenaar 
// EOF DBVIEW.RC '"dBase Viewer, //_ Naam 
WS_OVERLAPPEDWINDOW, // Type 
CW_USEDEFAULT, // X-positie 
CW _USEDEFAULT, // Y-positie 


nd 
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CW _ USEDEFAULT, // Breedte 

CW _ USEDEFAULT, // Hoogte 

NULL, // ParentWindow 

NULL, // Gebruik 
lpszMenuName 

hInstance, // hInstance 


NULL) ; // lpParam 


ShowWindow( hWnd, nCmdShow ); 
UpdateWindow( hWnd ); 


// De Main message loop. 


while ( GetMessage( &msg, NULL, O0, 0) } 
{ 
TranslateMessage( &msq ); 
DispatchMessage ( &msg }); 
} 


free (hRecBuf) ; 
fclose (dbHandle) ; 


// Terug naar Windows. 


return (int) msq.wParam; 


HFONT hFont; 


long FAR PASCAL WndProc (HWND hWnd, 
unsigned message, 
WORD wParam, LONG 
lParam) 
{ 
FARPROC lpOpenDlg, lpFindDlg, lIpInfoDlg; 
BOOL Found; 


switch (message) 
{ 
case WM CREATE: 
// Gebruik een Fixed font voor TextOut (). 
hFont = GetStockObject (OEM FIXED FONT); 
break; 


case WM PAINT: 
if (!IsIconic(hWnd)) 
dbPaint (hWnd) ; 
else 
return DefWindowProc (hWnd, message, 
wParam, lParam) ; 
break; 


case WM KEYDOWN: 
switch ( wParam } 


{ 
case VK HOME: // Home 
CurRecord = 0; 
break; 


case VK END: // End 
CurRecord = dbHeader.RecCount -1; 
break; 


case VK PRIOR: // PgUp 
if (CurRecord > 0) CurRecord--; 
break; 


case VK NEXT: // PgDn 
if (CurRecord < dbHeader.RecCount-1) 
CurRecord++; 
break; 


default: 
return DefWindowProc (hWnd,message, 
wParam, lParam) ; 


} 


// Genereer een WM PAINT message. 
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InvalidateRect (hWnd, NULL, TRUE) ; 
UpdateWindow (hWnd) ; 
break; 


case WM COMMAND: 
// Een dbMenu optie is geactiveerd. 
switch( wParam } 
{ 
case IDM OPEN: 
fclose (dbHandle) ; 


lpOpenDlg = MakeProcInstance ( 
(FARPROC) OpenDlg, hInst); 
dbHandle = (FILE *) DialogBox(hInst, 
"Open", hWnd, lpOpenDlg); 
FreeProcInstance (lpOpenDlg) ; 


dbLoaded = 0; 
if (dbHandle) dbLoad (hWnd); 


CurRecord = 0; 

// Genereer een WM PAINT messzege. 

InvalidateRect (hWnd, NULL, TRUE); 
UpdateWindow (hWnd) ; 
break; 


case IDM QUIT: 
PostMessage (hWnd, WM CLOSE, O0, OL); 
break; 


case IDM FIND: 
lpFindDlg = MakeProcInstance (FindDlg, 
hInst) ; 
// Start een Find-dialog. 
Found = DialogBox(hInst, 

MAKEINTRESOURCE (FIND), 

hWnd, lpFrFindDlg); 
FreeProcInstance (lpFindDlg) ; 


if (Found) { 
// Genereer een WM PAINT message. 
InvalidateRect (hWnd, NULL, TRUE); 
UpdateWindow (hWnd) ; 


break; 


case IDM INFO: 
lpInfoDlg = MakeProcInstance ( 
InfoDlg, hInst); 

// Start een Info-dialog. 

DialogBox (hInst,MAKEINTRESOURCE (INFO), 

hWnd, lpInfoDlg); 

FreeProcInstance (lpInfoDlg) ; 

break; 


} 


break; 


case WM DESTROY: 
PostQuitMessage( 0 ); 
break; 


// Overige messages worden afgehandeld door 
// Windows zelf. 
default: 
return DefWindowProc (hWnd,message, 
wParam, lParam) ; 


} 


return (long) 0; 


void dbPaint (HWND hWnd) 

{ 
TEXTMETRIC tm; 
COLORREF OldColor, Grey; 
PAINTSTRUCT ps; 
short int FldPosX, FldPosY; 
int CharH, CharW, i, j; 
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// dan MaxLength. 


PSTR CurField,strPtr; 
if (MaxLength > 0 && str{0]) 


int MaxLength; 
RECT wRect; 
strPtr = str; 


HDC hDC = BeginPaint( hWnd, &ps ); for (j=l; j<5; j++) 


strncpy (buf, strPtr,MaxLength) ; 
buf{[MaxLength] = 0; 

TextOut (hDC, FldPosX,FldPosY, buf, 
strlen (buf) ) ; 

FldPosY += CharH; 

if (strlen(strPtr) < MaxLength) 


// Selecteer een fixed font en bewaar de 
// vorige font. 
HFONT hOldFont = SelectObject (hDC, hFont ) ; 


// Bepaal de character afmetingen van 
// de nieuwe font. 


GetTextMetrics (hDC, &tm) ; break; 
CharH = tm.tmHeight; strPtr = &str{[MaxLength*j] ; 
CharW = tm.tmAveCharWidth; } 


} 
else FldPosY += CharH; 


// Bepaal de maximum text lengte afhankelijk 
CurField += dbField[íi].Length; 


// van de huidige window afmetingen. 
GetClientRect ( hWnd, &wRect ); } 
MaxLength = (wRect.right-(14*CharW)) / CharW; else FldPosY += CharH; 
} 
13*Charw; } 
CharH; //_ ‘dbLoaded 
else SetWindowText (hWnd, '"dBase Viewer"); 


FldPosX 
FldPosY 


Grey = RGB(200, 200, 200) ; 
SelectObject (hDC, hOldFont) ; 


if ( dbLoaded } EndPaint ( hWnd, &ps ); 


{ } 
if ( dbHeader.RecCount } 


IJ -onnnnenenenvenennenenenvenveneneneenenvennne 

fseek (dbHandle, FirstRecPos + 
dbHeader.RecSize * CurRecord, char OpenName[ 128]; 
SEEK SET); ‚char DefPath[128]; 

fread( (void *) hRecBuf, char DefSpec[13) = "*.dbf"; 
dbHeader.RecSize, 1, dbHandle); char DefExt[] = ".dbf"; 
} 

void dbLoad(HWND hWnd) 

sprintf (str, "Record # %d", CurRecordt1); { 
TextOut (hDC, CharW, FldPosY, str, Ant Aj. 


strlen(str)); 
SetWindowText (hWnd, OpenName) ; 
FldPosY = 3*CharH; 


CurField = (char *) hRecBuf; // Lees de Header informatie van de database. 


fread( (void *) &dbHeader, 


for (i=0; i<nrFields && i<MAXFIELDS; i++) sizeof (struct DBHEADER), 1, dbHandle); 


{ 


// Veld naam: 

strncpy(str, dbField[i].Name, 10); 
str[10) = 0; 

strcat (str, ":"); 
SetTextAlign(hDC, TA RIGHT) ; 
OldColor = SetTextColor (hDC, Grey) ; 
TextOut (hDC, 12*CharW, FldPosY, str, 
strlen(str)); 


// Bepaal aantal velden per record. 

nrFields = (dbHeader.HeaderSize- 
sizeof (struct DBHEADER) -1) / 
sizeof (struct DBFIELD) ; 


// Lees de veld informatie in. 

for ( i=0; i<nrFields && i<MAXFIELDS; i++ ) 
fread( (void *) (dbField+ti), 

sizeof (struct DBFIELD), 1, dbHandle); 


// Veld inhoud: 


if ( dbHeader.RecCount } FirstRecPos = sizeof (struct DBHEADER) + 


sizeof (struct DBFIELD) * 


{ 
SetTextAlign(hDC, TA LEFT) ; nrFields + 1; 


SetTextColor (hDC, OldColor) ; 
// Dealloceer eventueel eerst een vorige 


switch (dbField[i].Type) // record buffer. 
{ if (hRecBuf != NULL) free (hRecBuf); 


case 'D': // Date 
DToString(str,CurField) ; // Alloceer geheugen voor een record buffer. 
break; hRecBuf = malloc(dbHeader.RecSize) ; 


case 'M': // Memo if ( hRecBuf==NULL } 
MToString(str,CurField) ; 
break; Error (hWnd, "Memory allocation failure"); 
case 'L': // Logical dbLoaded = 0; 
LToString(str,CurField) ; } 
break; else dbLoaded = 1; 
case 'N': // Numeric } 
case 'C': // Character 
CToString(str,CurField, JJ ----enen eeen eneneenevereenenennn enn 
dbField{[{i}).Length) ; 
break; 
} HANDLE FAR PASCAL OpenDlg(HWND hDlg, 


unsigned message, 


// Formateer veld inhoud indien langer WORD wParam, LONG lParam) 


mmm mmmnmmmmnsmpmmnmgpemggsepgnjt tg 
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HANDLE hFile=NULL; 


switch (message) 
{ 
case WM COMMAND : 
switch (wParam) 
{ 
case IDC LISTBOX: 
switch (HIWORD(lParam)) 


{ 
case LBN SELCHANGE: 

// Indien selectie een directory naam: 
// voeg "*.dbf" toe. 

if (DlgDirSelect(hDlg, OpenName, 

IDC LISTBOX)) 
strcat (OpenName, DefSpec) ; 
break; 


// List item geselecteerd 
case LBN DBLCLK: 
goto openfile; 
} 


return TRUE; 
case IDOK: // OK Button geactiveerd. 
openfile: 


if ( strchr(OpenName, ’*’) j) 
{ 
SeparateFile( (LPSTR) str, (LPSTR)DefSpec, 
(LPSTR) OpenName) ; 
if (str[0]) strcpy(DefPath, str); 
UpdateListBox (hDlg) ; 
return TRUE; 


} 
hFile = (HANDLE) fopen(OpenName, "r+b'"); 
if ('hFile) 

Error (hDlg, "Open failure"); 


// Open Dialog afsluiten 
EndDialog(hDlg, hFile); 
return TRUE; 


case IDCANCEL: 
// Cancel Open Dialog 
EndDialog(hDlg, NULL); 
return FALSE; 
} 


break; 


case WM INITDIALOG: 
UpdateListBox (hDIlg) ; 
return FALSE; 
} 
return FALSE; 


} 


// List directories en files met de 
// DefSpec (=*.dbf) extensie. 


void UpdateListBox(HWND hDlg) 
{ 
strcpy(str, DefPath); 
strcat (str, DefSpec) ; 
DlgDirList(hDlg, str, IDC LISTBOX, 
IDC PATH, Ox4010); 


if (!'strchr (DefPath, ’:’)) 
DlgDirList (hDlg, DefSpec, IDC LISTBOX, 
IDC PATH, 0x4010) ; 


if (strstr (DefPath, "..")) 
DefPath[O0]) = 0; 
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// Splits path en filenaam 


void SeparateFile(LPSTR lpDestPath, 
LPSTR lpDestFileName, 
LPSTR 1pSrcFileName) 


LPSTR 1pTmp; 
char cTmp; 


// Begin bij laatste character 
lpTmp = 1lpSrcFileName + 
(long) 1lstrlen(lpSrcFileName) ; 


while (*1pTmp !'= ’:’ && *1pTmp != '\\’ 
&& 1lpTmp > IpSrcFileName) 
// Voorafgaande character 
lpTmp = AnsiPrev(lpSrcFileName, 1pTmp); 


if (*1pTmp !'= ’:' && *1pTmp != "\\") 


lstrcpy (lpDestFileName, 1lpSrcFileName) ; 
lpDestPath[0]} = 0; 
return; 


} 


lstrcpy (lpDestFileName, 1pTmp + 1); 

cTmp = *(lpTmp + 1); 

lstrepy(lpDestPath, 1pSrcFileName) ; 

*(lpTmp + 1) = cTmp; 

lpDestPath[ (lpTmp - lpSrcFileName) + 1} = 0; 


BOOL CaseSensitive=0; 


#pragma argsused 
BOOL FAR PASCAL FindDlg(HWND hDlg,WORD message, 
WORD wParam, LONG lParam) 


if ( message==WM INITDIALOG) 


// Case-box is disabled. 
CaseSensitive = 0; 
return TRUE; 

} 


if ( message==WM COMMAND) 
switch (wParam) 
{ 
case IDOK: 
if (dbLoaded) 


{ 
GetDlgItemText (hDlg, IDC EDIT, 
str, MAXFIND) ; 
if ( FindStr(str) ) 


// String gevonden! 
// Find Dialog afsluiten 
EndDialog (hDlg, TRUE) ; 
return TRUE; 
} 


} 
Error (hDlg, "Not found"); 


// String niet gevonden! 
// Find Dialog afsluiten 
EndDialog(hDlg, FALSE) ; 
return TRUE; 


case IDCANCEL: 
// Cancel Find Dialog. 
EndDialog (hDlg, FALSE) ; 
return TRUE; 


case IDC CASE: 
// Case CheckBox clicked. 
CaseSensitive = 'CaseSensitive; 
return TRUE; 
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} 
return FALSE; 





BOOL FindStr(PSTR string) 
{ 


int RecPos, Found; 


// Zoek vanaf het volgende record. 
long rec = CurRecordt+t1; 


while (rec < dbHeader.RecCount) 


fseek (dbHandle, FirstRecPos + 
dbHeader.RecSize * rec, SEEK SET); 

fread( (void *) hRecBuf, 
dbHeader.RecSize, 1, dbHandle); 


// Start zoek actie in eerste veld 
RecPos = 0; 
while ( RecPos < dbHeader.RecSize } 


if ( CaseSensitive } 
Found = 'strnemp(string, (PSTR) 
(hRecBuf+RecPos) , 
strlen(string)); 
else // 'CaseSensitive 
Found = 'strnicmp({string, (PSTR) 
(hRecBuf+RecPos) , 
strlen(string)) ; 
if ( Found ) 
{ 
// string gevonden! 
CurRecord = rec; 
return TRUE; 


} 
RecPos++; 


// Zoek verder in volgende record. 
rec++; 


} 


// String niet gevonden! 
return FALSE; 


#pragma argsused 
BOOL FAR PASCAL InfoDlg(HWND hDlg,WORD message, 
WORD wParam, LONG lParam) 


{ 
if ( message==WM INITDIALOG } 


if ( dbLoaded } 

{ 
SetDlgItemText (hDlg, IDC FILENAME, OpenName) ; 
sprintf (str, "%d-%d-%d",dbHeader.Day, 
dbHeader. Month, dbHeader. Year) ; 
SetDlgItemText (hDlg, IDC LASTUPD, str); 
itoa(dbHeader.HeaderSize, str, 10); 
strcat (str, " bytes"); 

SetDlgItemText (hDlg, IDC HSIZE, str); 
itoa(dbHeader.RecSize, str, 10); 
strcat (str, " bytes"); 

SetDlgItemText (hDlg, IDC RSIZE, str); 


itoa(nrFields, str, 10); 
SetDlgItemText (hDlg, IDC FIELDS, str); 


ltoa(dbHeader.RecCount, str, 10); 
SetDlgItemText (hDlg, IDC RECORDS, str); 
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return TRUE; 
} 


else if (message==WM COMMAND && wParam==IDOK) 
// Info Dialog afsluiten. 
EndDialog(hDlg, TRUE); 
return TRUE; 


} 
return FALSE; 
} 


// Date naar string conversie 


void DToString(PSTR String,PSTR Date) 
{ 


String[0] = Datel[6]; 
String[1l] = Datel]; 
String[2] = ’-'; 
String[3] = Datel[4]; 
String[4) = Date[5]; 
String[5] = ’=-'; 
String[6]) = ’1’; 
String[7)} = ’9'; 
String[8] = Datel[2]; 
String[9] = Datel[3]; 


String[10] = 0; 


#pragma argsused 


void MToString(PSTR String,PSTR Memo) 


strepy (String, "** Memo **') ; 


// Logical naar string conversie 
void LToString(PSTR String,PSTR Fld) 
if ( Fld[0] ) String[0}] = ’T’; 


else String[0] = ’F'; 
String[1] = 0; 


// Character naar string conversie 


void CToString(PSTR String, PSTR Fld, 
unsigned char Length) 


{ 
int 1=0; 
while (i < Length) 
{ 
String[i] =Fld[i+1]; 
AFP; 
str[i}) = 0; 
} 
Il oonnenennernnenennenvennennenenveneeneenenvenvenn 


void Error (HWND hWnd, LPSTR 1ptext) 


{ 
MessageBox (hWnd, Iptext, "dbview",MB OK | 


MB_ICONHAND) ; 
} 


// EOF DBVIEW.C 
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Eiffel 


Eiffel is een object-georiënteerde programmeertaal, ontwikkeld rondom begrippen als 
software hergebruik, uitbreidbaarheid en compatibiliteit. De ontwikkelaar van Eiffel, Ber- 
trand Meyer, heeft bovendien veel aandacht besteed aan overdraagbaarheid, correctheid 


en robuustheid van de taal. Al deze eigenschappen komen min of meer voort uit de object- 
georiënteerde achtergrond van de Eiffel-taal. We zullen ons in dit artikel richten op de syn- 


tactische aspecten van de Eiffel programmeertaal, alsmede de sterke punten van de taal. 


Net als bij sommige C++ implementaties 
wordt ook Eiffel-code omgezet in C-code, 

| die vervolgens met een reguliere C-compiler 
te verwerken is tot een uitvoerbaar program- 
ma. Dit heeft als voordeel dat Eiffel-program- 
ma’s op een breed scala aan machines ge- 
bruikt kunnen worden, omdat voor de mees- 
te platforms wel een C-compiler beschikbaar 
is. Een groot verschil met C++ is echter dat 
Eiffel een compleet andere syntax heeft dan 
C, en dus niet direct compatible is met deze 
taal. 


De Eiffel-taal is een van de meest complete 
object-georiënteerde talen van het moment 
waarin bruikbare applicaties kunnen wor- 
den geschreven. In tegenstelling tot de huidi- 
ge versie van C++ worden genericiteit en ex- 
ception handling ondersteund, terwijl ook 
pre- en postcondities kunnen worden ge- 
steld voor procedures. De syntax van Eiffel 
lijkt een beetje op die van Ada en Pascal. 


De leden van een class heten in Eiffel-syntax 
features; dit zijn zowel data-members als . 
member-functies en -procedures. Met behulp 
‚van het export-keyword wordt aangegeven 
‚welke leden de publieke interface (naar de 
buitenwereld) verzorgen. 


‚Een eenvoudige class om een twee-dimensio- 
‚naal punt weer te geven, zou in Eiffel als 
‚ volgt worden gedefinieerd: 





class POINT 
export 
draw 
feature 
xXx, Y : INTEGER; 
— Functie om punt te tekenen 


draw is 
do 
— Code om punt te tekenen 
end; — draw 


„end — POINT 
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Twee liggende streepjes (—) worden ge- 
bruikt om commentaar in te luiden tot het 
einde van de regel. De members x en y ge- 
ven de coördinaten van het punt aan, terwijl 
draw de routine is die het punt zal tekenen. 
Zoals uit het export-gedeelte blijkt, wordt al- 
leen draw bekend gemaakt aan de buitenwe- 
reld; de x en y members blijven verborgen in 
de class. Een POINT instantie wordt als 
volgt aangemaakt: 


my point : POINT; 
Nu is een variabele (eigenlijk een referentie) 
van het type POINT gecreëerd. Met de voor- 


gedefinieerde routine Create wordt een punt 
aangemaakt met de waarde (0,0): 


my _point.Create; 
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Natuurlijk moeten we een Create-routine 
hebben die twee integers als argumenten 
heeft, teneinde een punt ook te kunnen initi- 
aliseren. Hiertoe wordt binnen de class (dus 
analoog aan de definitie van de draw-routi- 
ne) een Create-routine gedefinieerd: 


class POINT 
— „…… als boven ... 


Create (a, b : INTEGER) is 
do 
x a; 
y :=b 
end; — Create 


end — POINT 


Nu kan de variabele my_point als volgt geï- 
nitialiseerd worden met de waarde (50,415): 


my _point.Create(50, 415) ; 


Het voorgedefinieerde woord Result kan ge- 
bruikt worden om een functie een waarde te 
laten terugkeren. Zo kunnen we bijvoorbeeld 
de functie at_origin (True als een punt op de 
oorsprong ligt) van het type BOOLEAN als 
volgt schrijven voor de POINT class: 


class POINT 
export 
draw, at origin 
— .….… als boven . 


at origin: BOOLEAN is 
do 
Result := (x = 0) and (y = 0) 
end; — at origin 


end — POINT 
Pp : POINT; 


if p.at origin then 


Met de definitie p : POINT wordt nog geen 
object gecreëerd, maar een referentie (op dat 
moment nog void) naar een later te definië- 
ren object POINT. Dit houdt in dat een object 
expliciet gedefinieerd moet worden met be- 
hulp van de Create-routine. Pas dan wordt p 
aan een bestaand object gekoppeld, waarna 
ermee gewerkt kan worden. Indien een refe- 
rentie losgekoppeld moet worden van een 
object, kan de routine Forget gebruikt wor- 
den: 


p.Forget; 





Een referentie kan dus in twee toestanden 
verkeren: in VOID-toestand (nadat de refe- 
rentie gedeclareerd is) en in CREATED-toe- 
stand (nadat de Create-routine aangeroepen 
is). Met Forget keert de referentie weer terug 
in de VOID-toestand. 


Met de routine Clone kunnen referenties ook 
in CREATED-toestand gebracht worden: 


Pp, q : POINT; 


q.Create(20,89); — creatie van q 
p.Clone(g); — creatie van p aan de hand 
van q 


Alle velden van het POINT-argument (in het 
voorbeeld dus q.x en q.y) worden hierbij 

naar de corresponderende velden van het ob- 
ject van waaruit Clone werd aangeroepen 
(dus de variabele p) gekopieerd. Hetzelfde ef- 
fect wordt trouwens bereikt met p:=g. 


Inheritance 

Natuurlijk ondersteunt Eiffel single inher- 
itance, alsmede multiple en repeated inher- 
itance. Inheritance (of overerving) betekent 
dat een nieuwe class-definitie wordt aange- 
maakt die de eigenschappen erft van een 
reeds bestaande class. Op deze manier kan 
de code van de ouder-class (ook wel basis- of 
superclass genoemd) opnieuw gebruikt wor- 
den. 


We zullen een class CIRCLE definiëren die 
gebaseerd is op een POINT. Een cirkel kan 
immers gezien worden als een punt met als 
extra eigenschap een variabele die de straal 
van de cirkel aangeeft; de (x,y) members van 
de ouder-class POINT worden dan gebruikt 
om het middelpunt van de cirkel aan te ge- 
ven. De definitie van CIRCLE zou er in Eiffel 


als volgt uitzien: 


class CIRCLE 
export 
draw, at origin 
inherit 
POINT 
redefine 
draw 
feature 
radius : INTEGER; 
draw is 
do 
— Code om cirkel te tekenen 
end; 
end — CIRCLE 
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Het inherit POINT geeft aan dat POINT een 
basis-class is voor CIRCLE; redefine draw be- 
tekent dat de draw-functie in de CIRCLE- 
class opnieuw gedefinieerd wordt. In tegen- 
stelling tot C++ is dit noodzakelijk in Eiffel. 

‚ De at_origin-functie van POINT wordt onge- 
wijzigd geërfd in de CIRCLE-class. Overi- 
gens zou de CIRCLE-class ook een Create- 
functie moeten hebben. 





Polymorfie 

Het compatibiliteitsprincipe van basis- en af- 
geleide classes betekent in Eiffel dat een refe- 
rentie aan een basis-class altijd kan refereren 
aan een afgeleide class; immers alle eigen- 
schappen die dan gebruikt worden (de mem- 
bers van de basis-class) zijn ook beschikbaar 
voor de afgeleide class. In het volgende voor- 
beeld laten we een POINT-referentie p wij- 
zen naar een CIRCLE: | 


p : POINT; 
c : CIRCLE; 


c.Create(...); 
p := C; — Laat p refereren aan c 


p.draw; — Teken p 


Dankzij de dynamische binding die Eiffel zal 
toepassen, zal de draw-routine van CIRCLE 
worden aangeroepen, hoewel p statisch als 
POINT-referentie is gedeclareerd. Dit wordt 
ook wel polymorfie (veelvormigheid) ge- 
noemd en is een belangrijke eigenschap van 
object-georiënteerde systemen. 


Abstracte basis-classes 

In sommige gevallen is het wenselijk dat een 
basis-class alleen dient om er classes van af 
te leiden, en zelf geen concrete betekenis 
heeft. Dit is bijvoorbeeld het geval bij een 
SHAPE-class, die als basis-class zou kunnen 
fungeren voor POINT en CIRCLE. Van het 
type SHAPE wordt nooit een instantie ge- 
maakt met behulp van Create of Clone. Een 
routine als draw moet dus in elke afgeleide 
class opnieuw gedefinieerd worden, omdat 
draw voor SHAPE geen betekenis heeft. Om 
dit aan te geven kan de draw-routine in Eif- 
fel deferred (uitgesteld) worden gedecla- 
reerd: 


class SHAPE 
export 
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— ….. Publieke interface 
feature 
— ….. Definitie van de members 


draw is 
deferred 
end; 


end — SHAPE 


Dit betekent dat de draw-routine bekend zal 
zijn in alle van SHAPE afgeleide classes. De- 
ferred classes in Eiffel zijn vergelijkbaar met 
abstracte basis-classes in C++, waar dit aan- 
gegeven wordt met het voorkomen van min- 
stens één puur virtuele member-functie. 


Multiple en repeated inheritance 
Multiple inheritance betekent dat een class 
meer dan één class als basis-class heeft. In 
het volgende voorbeeld erft de class C zowel 
van A als van B: 


class A 
— ….. Eigenschappen van A 
end; 


class B 
— ….… Eigenschappen van B 
end; 


class C 
inherit 
A; 
B 
_— ……. Toegevoegde eigenschappen 
end — C 


Indien indirect tweemaal van één basis-class 
wordt geërfd, is er sprake van repeated in- 
heritance. Meyer geeft zelf in zijn boek ‘Ob- 
ject-Oriented Software Construction’ het 
voorbeeld van een class DRIVER, en daarvan 
afgeleide classes US_DRIVER en 

FRENCH DRIVER. Indien dan een nieuwe 
class FRENCH US DRIVER wordt gedefini- 


eerd als afgeleide van FRENCH DRIVER en 


US DRIVER, zal de basis-class DRIVER 
tweemaal voorkomen in FRENCH _US DRI- 
VER. Gelukkig voorziet Eiffel in mogelijkhe- 
den om basis-members te delen of onder een 
andere naam op te nemen, iets wat in combi- 
natie niet mogelijk is in C++. 


Genericity 

Een ander zeer belangrijk onderdeel van Eif- 
fel is genericity. Dit houdt in dat een class 
wordt gedefinieerd voor een onbepaald data- 
type T, waarvoor op een later tijdstip elk ge- 
wenst datatype kan worden ingevuld. Zo 
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kan een generieke ARRAY-class worden ge- 
definieerd, waarna eenvoudig ARRAY’s van 
integers, strings of door de gebruiker gedefi- 
nieerde typen kunnen worden gedefinieerd. 
Dit maakt de complete herdefinitie van to- 
taal nieuwe classes INT ARRAY, 

STRING ARRAY en dergelijke overbodig, 
en kan dus veel tijd besparen. Samen met in- 
heritance kan genericity bijdragen tot een 
hoge graad van software-hergebruik. 


Een generieke STACK-class wordt in Eiffel 
als volgt gedefinieerd: 


class STACK [Type] 


export 
is empty, push, pop 
feature 
is empty : BOOLEAN is 
do 
— Controleer of stack leeg is 
end; 


push( x : Type ) is 
do 


— Voeg element toe aan de stack 
end; 


pop : Type is 
do 
— Geef bovenste element terug 
end; 
end — STACK 


In deze definitie is Type een algemeen type, 
waarvoor een simpel type (bijvoorbeeld IN- 
TEGER) maar ook een class-type (bijvoor- 
beeld POINT) kan worden ingevuld. Het vol- 
gende fragment definieert STACK’s van IN- 
TEGER’s en van POINT's: 


p_stack : STACK[ POINT |; 
i stack : STACK[ INTEGER ]; 


Nu kan p_stack alleen POINT’s bevatten, en 
i stack alleen INTEGER’s. Indien een stack 
gewenst is met gemixte elementen, moet in- 
heritance gebruikt worden. 


Condities, assertions en exceptions 
Zoals reeds gezegd is Eiffel sterk gericht op 
correctheid en robuustheid van applicaties. 
Door middel van pre- en postcondities, asser- 
tions en exception handling kan een pro- 
grammeur zijn code een stuk betrouwbaar- 
der maken. Een belangrijk concept hierbij is 
‘programming by contract’: een class en zijn 
gebruikers sluiten impliciet een soort con- 














tract waarin de rechten en plichten van bei- 
den zijn vermeld. Meestal komt het hierop 
neer: als de gebruiker van een class een mem- 
ber-routine aanroept onder de juiste omstan- 
digheden dan zorgt de class ervoor dat de 
juiste resultaten worden afgeleverd. 


Zo kan de push-routine van een STACK- 
class alleen aangeroepen worden indien de 
STACK niet vol is, en de pop-routine indien 
de STACK niet leeg is. Indien hieraan wordt 
voldaan, zullen de routines de juiste resulta- 
ten opleveren. Deze zogenaamde pre-condi- 
ties kunnen in Eiffel met behulp van de re- 
quire-clause worden aangegeven, waarbij we 
als voorbeeld een generieke STACK-class ne- 
men: 


class STACK [Type] 
— .…. export, features 
push( x : Type ) is 
require 
not is full 
do 
— Voeg element toe aan de stack 
end; 


pop : Type is 
require 
not is empty 
do 
— Haal bovenste element van de 
stack 
end; 


end — STACK 


We zien hier duidelijk de condities waaraan 
de huidige STACK moet voldoen, willen de 
push- en pop-operaties slagen. Overigens 
doen we hier de Eiffel-conventie, dat alleen 
procedures side-effects kunnen hebben, ge- 
weld aan doordat de pop-functie de toestand 
van de STACK verandert. | 


Post-condities kunnen worden gebruikt om 
aan te geven waaraan de toestand van de 
class moet voldoen als de operatie uitge- 
voerd is. Zo kan een STACK nooit leeg zijn 
indien net een push-operatie is uitgevoerd, 
en nooit vol indien een pop-operatie is uitge- 
voerd. Post-condities kunnen worden aange- 
geven met behulp van een ensure-clause: 


class STACK 
— .…..… export, features 
push( x : Type ) is 
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‚ Doordat de pre-conditie controleert op de 
juiste toestand van een STACK, hoeft de 
code na de ‘do’ geen rekening te houden met 
een onjuiste toestand van het object. 


Naast pre- en post-condities kunnen classes 


hebben. Bovendien is een aantal andere key- 
‚words beschikbaar voor exception handling, 





Eiffel 


require waar we hier verder niet op zullen ingaan. Al 
not is full Eee 

do n deze eigenschappen zorgen ervoor dat er 

en en mrd BERGE zeer betrouwbare software geschreven kan 
not is empty worden in Eiffel. 

end; 


pop : Type is 
require 
not is empty 


Concluderend kan worden gesteld dat Eiffel 
een zeer veelzijdige en uitgebreide object- 


do georiënteerde taal is, waar betrouwbaarheid 


— Haal bovenste element van de 
stack 
ensure 
not is full 
end; 


end — STACK 


in Eiffel ook variant- en invariant-clauses 
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hoog in het vaandel staat. Doordat de Eitfel- 
translator C-code genereert zijn Eiffel-appli- 
caties bovendien overdraagbaar tussen de 
meeste systemen. 





PCGebruiker 


Informatief handboek voor de beginnende computergebruiker 


PC Gebruiker is bedoeld voor iedereen die 
meer wil met zijn MS-DOS Personal Compu- 
ter. Het is samengesteld op basis van artikelen 
uit het toonaangevende computermagazine 
Computer Info en het blad voor programmeurs 
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al snel tegenaan loopt. 

Een prima boek voor wie zich op een snelle 
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gebruik eigen wil maken. Het boek is ook ge- 
schikt voor gebruik in het onderwijs op een 
iets verder niveau. 

Onderwerpen: hardware, harddisks, telecommu- 
nicatie. virussen, windows, netwerken. Er zijn 


veel schema’s, diagrammen en voorbeeldpro- 
gramma’s opgenomen; dit is een echt doe-boek. 
Het sluit aan bij PC Starter in dezelfde reeks, 
dat meer voor de PC beginner is bedoeld. Van 
PC Starter zijn inmiddels 45.000 exemplaren 
verkocht! 


U kunt deze uitgave bestellen door het overmaken van 

f 16,50 (incl. verzendkosten) op gironummer 1585491 t.n.v. 
SAC Amsterdam onder vermelding van: PC Gebruiker. Voor 
het onderwijs zijn er kortingstarieven. Leraren Informatica 
kunnen een recensie-exemplaar aanvragen via Sala Communi- 
cations, 

t.a.v. M. Jansen, 
Postbus 43048, 

1009 ZA Amsterdam, 
(020-6248006). 


Prijs: f 14,95- 
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PostScript 


Programmeren in PostScript 


PostScript is een bekende pagina-opmaaktaal om laserprinters mee aan te sturen. Het is 
door Adobe Systems ontworpen om de kloof te overbruggen tussen computergestuurde 





opmaaksystemen en raster-uitvoersystemen. 
gronden van PostScript en de mogelijkheid o 





Veel programma’s zijn in staat uitvoer in 
PostScript-formaat af te leveren. Weinigen 
weten echter dat PostScript een complete 
Programmeertaal is, waarin ook zelf ‘gepro- 
grammeerd’ kan worden. PostScript-bestan- 
den hebben een normaal ASCII-formaat, en 
kunnen dus in een editor worden bijgewerkt. 
PostScript-uitvoer van opmaakprogramma’s 
kan zodoende handmatig bijgesteld worden; 
ook kunnen er stand-alone ‘toepassingen’ in 
PostScript worden geschreven. 


Echte PostScript-printers bevatten een inge- 
bouwde hardware-interpreter en zijn tot op 
heden redelijk prijzig. Een goedkopere oplos- 
sing is het gebruiken van software Post- 
Script-interpreters, zoals Freedom of Press of 
GoScript. Deze programma’s kunnen een 
PostScript-programma uitvoeren naar een 
reeks van printers. Met een inkjet-printer 
kunnen heel behoorlijke resultaten worden 
bereikt als gebruik wordt gemaakt van zo’n 
software-interpreter. Voor het heavy-duty 
werk is echter een printer nodig waarbij de 
PostScript-ondersteuning vanuit de hardwa- 
re komt. 


Onafhankelijkheid van de printer 
De PostScript-taal is device-onafhankelijk, 
dat wil zeggen dat een PostScript-program- 
ma geen specifieke commando’s en codes be- 





In dit artikel zullen we ingaan op de achter- 
m zelf printers in PostScript aan te sturen. 


vat voor een bepaalde printer. In plaats hier- 
van worden pagina’s in abstracte grafische 
objecten beschreven, terwijl de PostScript-in- 
terpreter zelf het ‘zware’ werk verricht. Deze 
interpreter zet de PostScript-programma’s 
om in de stuurcodes van de desbetreffende 
printer. Doordat PostScript onafhankelijk is 
van een specifieke printer en PostScript-pro- 
gramma's in het ASCII-formaat staan, is Post- 
Script een perfecte taal om compleet opge- 
maakte documenten electronisch te verzen- 
den. Zo is het bij universiteiten gebruikelijk 
dat een bepaald wetenschappelijk document 
zowel in ‘plain text’ als in PostScript-formaat 
op een systeem wordt gezet. Een andere uni- 
versiteit, die aan het netwerk verbonden is, 
kan dan het PostScript-bestand downloaden 
en heeft na het uitdraaien een compleet ge- 
layout boekwerkje. Een nadeel is vaak dat de 
omvang van een PostScript-bestand enorm 
kan worden; 600 kiloByte voor een docu- 
ment van 65 pagina’s is niets bijzonders in 
de PostScript-wereld. We hebben zelf eens 
een geconverteerde .PCX-afbeelding van 4,5 
MegaByte gehad. 


De structuur van de taal 

Zoals reeds vermeld, wordt in PostScript een 
opgemaakte pagina beschreven in grafische 
objecten. Een letter is een voorbeeld van een 
object, maar ook ingebouwde of nieuw te de- 
finiëren figuren. PostScript biedt de mogelijk- 
heid om vele bewerkingen te verrichten op 
objecten, zoals buigen, van schaduw voor- 
zien, van grootte veranderen enzovoorts. 


Een bijzondere eigenschap van PostScript is 
dat de taal gebruik maakt van postfix-nota- 
tie. Dit houdt in dat eerst de argumenten en 
dan pas een commando wordt gegeven, x y 
moveto in plaats van moveto(x,y). Bij het ver- 
werken van postfix-expressies wordt gebruik 
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gemaakt van een stack, waarvoor een aantal 
operatoren beschikbaar is. 


Een eenvoudig programma 

We zullen nu het welbekende ‘Hello, world !’- 
‚programma in PostScript geven. Commenta- 
ren worden in PostScript ingeluid met een 
procent-teken (%), waarna ze gelden tot het 
einde van de regel. 





% Hello.PS 
% Hello, world in PostScrip 


/Courier findfont 12 scalefont setfont 
100 400 moveto 

(Hello, world!) show 

showpage 


Het eerste commando, /Courier findfont, 
zorgt ervoor dat de interpreter het Courier 
font selecteert. Dit is een van de vier fonts 
die elke PostScript-implementatie onder- 
steunt. De andere drie zijn: Times-Roman, 
Helvetica en Symbol, die dus ook in plaats 
van het ‘Courier’ hadden kunnen staan. Hier- 
bij bevat ‘Symbol’ een aantal mathematische 
en andere speciale symbolen. Met scalefont 
wordt het font ‘geschaald’ naar een bepaalde 
omvang, in het bovenstaande voorbeeld een 
12-punts letter. De setfont operator tenslotte 
maakt het geselecteerde font actief. 


Het commando moveto kan gebruikt wor- 
den om de huidige positie aan te geven. 
Tekst staat in PostScript tussen ronde haak- 
jes, en wordt met het show-commando afge- 
drukt. Het showpage-commando tenslotte 
zorgt ervoor dat het geheel wordt uitgevoerd 
naar de printer. 





Procedures 
In PostScript kunnen procedures op de vol- 
gende manier worden gedefinieerd: 


/myProc 
{ 


% ... commando's ... 
} def 


Nu zal myProc een procedure zijn met als 
body de commando's die tussen de accola- 
des staan. Een ander voorbeeld van een pro- 
cedure: 
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/cm 


{ 
28 mul 
} def 


Omdat PostScript-coördinaten ongeveer 
1/28 van een centimeter zijn, worden deze 
met de procedure cm omgezet in centime- 
ters. Voor de aanroep wordt het PostScript- 
coördinaat op de stack gezet (door het getal 
in te voeren), waarna 28 op de stack wordt 
gezet en de mul-instructie wordt aangeroe- 
pen. Deze popt de laatste twee getallen van 
de stack en vermenigvuldigt ze met elkaar. 
Het resultaat wordt wederom op de stack ge- 
zet. Het definiëren van de procedure cm bete- 
kent dus dat er eenvoudig, in plaats van met 
PostScript-coördinaten, met centimeters kan 
worden gewerkt. Het moveto-commando uit 
het voorbeeld programma zou als volgt ge- 
bruik kunnen maken van de cm-procedure: 


4 cm 14 cm moveto 


Graphics 

Ongeveer 30% van alle PostScript-operato- 
ren heeft betrekking op graphics. Het lineto- 
commando kan gebruikt worden om lijnen 
te tekenen, gerekend vanaf de huidige posi- 
tie. Het volgende PostScript-programma laat 
zien hoe lijnen getekend kunnen worden. 


% Line.PS 
/em 


28 mul 
} def 


% gaat naar (5,15) 
% lijn tot (10,15) 
% lijn tot (8,4) 


5 cm 15 cm moveto 
10 cm 15 cm lineto 
8 cm 4 cm lineto 
showpage 


Natuurlijk biedt PostScript veel meer dan de 
enkele mogelijkheden die we in dit artikel 
hebben behandeld. In de volgende DOS Spe- 
cial zullen we een PostScript-interface bou- 
wen waarmee we vanuit een hogere pro- 
grammeertaal PostScript-printers kunnen 
aansturen. Voor diegenen die niet zolang wil- 
len wachten, is er een beperkt aantal goede 
PostScript-boeken verkrijgbaar in de boek- 
handel. 
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De Paradox Engine 


Een techniek die bij Borland hoog in het vaandel staat, is interoperability. Dit houdt in dat 
Borland-programma’s onderling zo compatible mogelijk zijn, bijvoorbeeld wat betreft 
bestandsformaten die verwerkt kunnen worden. Een mooi voorbeeld hiervan is ObjectVi- 
sion, waarmee Paradox-tabellen verwerkt kunnen worden. Ook vanuit Quattro Pro, Bor- 
lands spreadsheet, kunnen deze bestanden gebruikt worden. 


De interoperability van veel produkten is ge- 
baseerd op een stuk software, de Paradox En- 


‚gine geheten. Dit is een bibliotheek van routi- 
‚nes waarmee Paradox-tabellen (de Paradox 
_.DB-bestanden) kunnen worden verwerkt. 
‚Van de library is kort geleden versie 2.0 uit- 


gebracht, die met Pascal, C en C++ gebruikt 
kan worden. 


Het Paradox-programma 


Paradox is de relationele database van Bor- 
land, en is een zeer krachtig programma dat 
ook geschikt is voor multi-user omgevingen. 
Query by Example ofwel QBE wordt door 
Paradox ondersteund, en met behulp van de 


‚ Paradox SQL Link kan het programma ge- 


bruikt worden om gegevens van een SQL da- 
tabase server op te vragen. In Paradox inge- 
bouwd is de Paradox Application Language 


‚ (PAL) en de Paradox Personal Programmer, 
‚een applicatiegenerator. 


Image Forms Tools 


Scripts Help Exit 


Street=== 
45 Utah Street 
4950 Pullman Ave NE 
Cypress Drive 
52 Brattle Street 
Hotel Americain 
1 Airport Drive 
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Chavez 
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Smith 


2,500, 


Het Paradox database-programma 
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‚De Paradox Engine 

Om Paradox data-bestanden vanuit C of Pas- 
cal-programma’s te kunnen gebruiken, is de 
Paradox Engine beschikbaar. Naast toegang 
tot de Paradox-bestanden biedt de Engine 
ook ondersteuning van netwerk-databases. 
‚Met de meer dan 70 routines die de Engine 

‚ bevat kunnen programma’s geschreven wor- 
den die de kracht van Paradox combineren 
met de kracht van een programmeertaal als 
C of Pascal. Zodoende kunnen programma’s 
‚worden geschreven die niet met de inge- 
bouwde PAL-taal mogelijk zijn. Tevens kan 
‚de Engine gebruikt worden om program- 
ma’s als ‘extra’ het Paradox .DB-formaat te 
laten ondersteunen. Veel programma’s bie- 
den immers tegenwoordig de mogelijkheid 
‚om bijvoorbeeld dBase-bestanden te lezen of 
‚te schrijven. 


We zullen eerst kort de opbouw van een Pa- 
‚ radox database beschrijven. Zoals in de fi- 
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Address | 205 North Boulevard, Suite 300 


City San Francisco State |CA 


Zip Code |94033 


Phore Number |(415) 200-6722 


Date Last Phoned 6/41 991 


Paradox Engine 


Edit Options: 


New Record | 


Update Record 
Delete Record | 
Empty Table _ 


Search. | 


Dit is een voorbeeld hoe met de Paradox 
Engine een front-end voor Paradox-tabellen 


onder Windows gemaakt kan worden. 


Select: 





Een Windows-toepassing met de Paradox Engine 


guur te zien is bestaat een Paradox datafile 
uit rijen en kolommen. Zo’n datafile heeft de 
‚extensie .DB en wordt in Paradox-jargon Ta- 
ble genoemd. De kolommen heten velden, 
de rijen records.(Zie illustratie vorige pagina) 


Voordat de Engine-routines kunnen worden 
gebruikt, moet eerst de functie PXInit (PXNe- 
tInit voor een netwerk) worden aangeroe- 
‚pen. Dit zorgt ervoor dat de Engine op de 
‚juiste manier wordt geïnitialiseerd. Vervol- 
gens kan met PXTblOpen een tabel worden 
geopend, en kan de veld-informatie worden 
„opgehaald met de PXFld... functies. 


‚Het werken met de Paradox Engine is erg 
‚eenvoudig. Omdat de functies het zware 
‚werk verrichten en het hoofdprogramma 
‚niets te maken heeft met bestandsstructuren, 
indices en dergelijke, kan snel een werkende 
applicatie worden opgezet. Hoewel zowel 
Pascal als C++ van Borland object-georiën- 
teerde talen zijn, bevat de Paradox Engine 
nog geen object-georiënteerde schil. Borland 
kennende zal dit echter niet lang op zich la- 
ten wachten. De huidige versie van de Engi- 
ne is geschikt voor Turbo C 2.0 (dat overi- 
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| gens niet meer geleverd wordt), Turbo C++, 


Borland C++ en Turbo Pascal. Een DLL (dy- 


_namic link library) voor gebruik onder Wind- 


ows wordt eveneens standaard bijgeleverd. 


Concluderend kan worden gesteld dat de Pa- 
radox Engine een goede oplossing is voor 
problemen die niet vanuit Paradox zelf kun- 
nen worden opgelost, zoals het inlezen van 
gegevens via de seriële poort of andere ‘low- 
level’ aangelegenheden. Bovendien biedt de 
Engine de mogelijkheid om eenvoudig en 
snel ondersteuning van Paradox-tabellen in 
bestaande Pascal- of C- programma’s in te 
bouwen. 
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PrinterQ 


Manipuleren van de DOS 


printer queue 


Het MS-Dos programma PRINT.COM is een geheugen-residente print-spooler waarmee 
in de achtergrond bestanden kunnen worden afgedrukt. Het PRINT-programma bevat 
hiervoor een queue waarin alle namen van bestanden die nog moeten worden afgedrukt, 
opgesomd staan. Normaal gesproken is deze queue alleen via het PRINT-programma be- 
schikbaar, maar met de sources die we in dit artikel zullen geven kan de queue ook vanuit 
uw eigen programma’s worden gemanipuleerd. Tevens bieden de functies een aantal op- 
ties die niet met PRINT mogelijk zijn, zoals het toevoegen van een bestand op een wille- 
keurige plaats in de queue. Het voorbeeldprogramma bevat een aantal van deze mogelijk- 


“heden. 


PRINT [/D:device][/B:size] [/U:ticks1] 
[/M:ticks2] [/S:ticks3] [/Q:qsizel [/T] 
[Idrive:I[path]filenamel …11 [/C] [/P] 


/D:device 


/B:size 


/U:ticks1 


/M:ticks2 
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Specificeert het uitvoerapparaat — 

(bijvoorbeeld PRINT /D:LPT1 

of /D:COMI). 

Stelt de omvang van de PRINT-buffer 

in (in bytes). De default-waarde is 512 

Bytes, de maximum-waarde 16 kiloByte. 

Wacht ‘ticks1’ kloktikken voordat de 

printer beschikbaar is. Normaal 

gesproken wordt één kloktik gewacht. 

Geeft aan hoeveel kloktikken het kost 

om een teken af te drukken. Indien deze 

optie niet wordt gebruikt, wordt een 

waarde van 2 tikken gebruikt. 

Geeft telkens ‘ticks3’ achtereenvolgende 

tikken aan het PRINT-programma. 

De verstekwaarde hiervan is acht tikken 

per keet. 

Geeft aan hoeveel bestanden er 

maximaal in de PRINT-queue kunnen 

staan. De standaard waarde bedraagt 

__tien bestanden en sed maximaal 32 
__ bedragen. 
Verwijdert alle bestanden uit de print- 
queue. 5 
| hp | het a t aangegeven E be estand. 

volgen 
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De PRINT- queue 


Een queue is te vergelijken met een wachtrij 
voor een kassa in de winkel; wie het eerst 
aankomt wordt het eerst geholpen. Het 
PRINT-commando bevat een ingebouwde 
queue waarvan de grootte kan worden inge- 
steld, die standaard 10 bestanden kan bevat- 
ten. We zullen verderop laten zien hoe de 
queue is opgebouwd en hoe we de inhoud 
kunnen wijzigen. Dit kan bijvoorbeeld gebeu- 
ren in toepassingsprogramma’s, die dan ge- 
bruik kunnen maken van de diensten van 
het PRINT-programma, zodat een ingebouw- 
de printer-spooler ontstaat. 


Het PRINT-programma 

PRINT is het enige multitasking DOS-pro- 
gramma, dat na het laden permanent in het 
geheugen verblijft, en wordt sinds versie 2 
van MS-DOS geleverd. Als PRINT wordt ge- 
bruikt om bestanden af te drukken kan on- 
dertussen worden doorgewerkt en zo ont- 
staat dus de illusie dat twee programma’s te- 
gelijkertijd draaien. In werkelijkheid koppelt 
PRINT zichzelf aan de timer-interrupt, die 
ongeveer 18 maal per seconde wordt aange- 
roepen door het systeem. Bij elke aanroep 
wordt weer een klein stukje van de tekst 
naar de printer gestuurd. We zullen hier niet 
verder ingaan op de techniek die dit moge- 
lijk maakt, maar kijken hoe we vanuit onze 
eigen programma’s met PRINT communice- 
ren, hetgeen vanaf DOS 3 mogelijk is. 
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‚Het intypen van PRINT zonder argumenten 

„zal de inhoud van de huidige queue laten 

‚zien. 
Enkele functies kunnen niet met PRINT wor- 
den verricht; bijvoorbeeld een bestand tus- 
senvoegen aan de queue, of een bestand in 
de queue dupliceren. Dit is wel mogelijk met 
enig programmeerwerk, zoals we zullen la- 
ten zien. 


De multiplex-interrupt 
„Alle PRINT-queue functies die we in dit arti- 
kel zullen geven maken gebruik van de mul- 
tiplex-interrupt met de hexadecimale code 
2F. Een multiplex-interrupt is bedoeld om 
toegang te bieden tot meerdere sets interrupt- 
routines. Voor PRINT.COM zijn functies 0 
en 1 (deze waarden worden voor het aanroe- 
pen van int Ox2F in het AH-register ge- 
plaatst). De meeste subfuncties maken onder- 
deel uit van functie 1. 


De eerste functie die we aanroepen is AX = 
Ox100, dat wil zeggen subfunctie 0 (in AL) 
van de functie 1 (in AH). Het AL-register ver- 
telt ons daarna meer over de installatie van 
PRINT: 





AL=û Niet geïnstalleerd, maar kan 
geïnstalleerd worden. 


A= 


Niet geïnstalleerd en kan niet 
geïnstalleerd worden. 
AL =0xFF Geinstalleerd. 


Het afdrukken van een bestand gaat met sub- 

functie 1 van functie 1; in AX wordt derhalve 

de waarde Ox101 geplaatst. Bovendien moet 

DS:DX het adres bevatten van het zogenaam- 

‚de submit-pakket, dat de volgende structuur 
heeft: 


struct SubmitPack 


unsigned char Level; // Altijd nul 


char far *FileName; 


}; 


De waarde van Level moet altijd nul bedra- 
gen en FileName is een far pointer naar een # 
‚bestandsnaam. Indien het AX-register na te- 
‚rugkeer een waarde lager dan 16 bevat, is er 
ergens een fout opgetreden. Dit kan bijvoor- 
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beeld het geval zijn als de buffer vol is. 
Subfunctie 2 van functie 1 (AX = 0x102) kan 
gebruikt worden om een of meer bestanden 
uit de queue te verwijderen. Hierbij wordt 
DS:DX gevuld met het adres van de string 
die de bestandsspecificatie bevat, waarin ook 
wildcards mogen worden gebruikt. Ook hier 
geeft een waarde van AX die kleiner dan 16 
is na terugkeer van de functie aan dat er er- 
gens iets fout is gegaan. Met subfunctie 3 
van functie 1 wordt de gehele queue ge- 
leegd. 


Een belangrijke functie is ‘Get status’, sub- 
functie 4 van functie 1. Hiermee wordt de 
huidige status van PRINT opgevraagd, maar 
wordt als neveneffect het afdrukken stopge- 
zet. De volgende foutmeldingen kunnen in 
het AX-register voorkomen: 


Bestand niet gevonden 
Pad niet gevonden 

Teveel bestanden geopend 
Toegang geweigerd 
Queue is vol 


Spooler is bezet 


Te lange bestandsspecificatie 
Ongeldige drive-aanduiding 


Bij terugkeer bevat DS:SI het adres van de 
PRINT-queue buffer in het geheugen. 


ledere bestandsnaam in de queue beslaat 
exact 64 Bytes (maar wordt eventueel eerder 
afgesloten met een null-teken), terwijl het 
einde van de queue wordt aangegeven door 
een string die begint met het null-teken. In 
diverse functies is te zien hoe de queue ge- 
manipuleerd kan worden. 


Resumerend kan subfunctie 4 dus voor drie 
doeleinden gebruikt worden: het opvragen 
van de status, het opvragen van het buffer- 
adres in het geheugen en het stopzetten van 
het afdrukproces. 

Het opnieuw starten van het afdrukken kan 
gebeuren met subfunctie 5 van functie 1, 
waarbij dus AX de waarde 0x105 bevat. Een 
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Print /Append 
Cancel 


Clear Maakt de buffer leeg 

Stop Stopt het afdrukken tot nader order 

SEBTL Hervat het afdrukken 

Show Laat de inhoud van de queue op het beeldscherm 
genummerd zien 


Voegt een bestand toe onderaan de queue 
Verwijdert een bestand uit de queue 


Index Geeft de index van een bestand in de queue 


GetF ile 
Pupticate 


Geeft de bestandsnaam van een element in de queue 
Dupliceert een bestandsnaam in de queue 


Insert Voegt een bestand toe op een willekeurige plaats 


in de queue 
nF iles 
TSEMDEY 


Geeft het huidige aantal bestanden in de queue 
Controleert of de queue leeg is 





Interface van de PrintQ class 


C-functie die dit bewerkstelligt zou er als 
volgt kunnen uitzien: 


void PrintQueueStart () 
union REGS r; 


r.x.ax = Ox105; 
int86( Ox2F, &r, &r ); 
} 


Nu we alle basisfuncties behandeld hebben, 
kunnen we ingaan op de implementatie van 
de sources. Het is duidelijk dat niet alles wat 
we willen met standaard functies gedaan kan 
worden, en we zullen dus sommige functies 
(zoals Insert) op een andere manier moeten 
schrijven. | 


De implementatie 

De sources zijn geschreven in C++, waar- 
voor we de Borland C++ compiler gebruik- 
ten. De class PrintQ zorgt voor de inkapse- 
ling van alle functies en data die betrekking 
hebben op de printer queue. Van deze class 
wordt typisch slechts een object geïnstanti- 
eerd, die vervolgens als een printer queue 
aangesproken kan worden. We hebben C++ 
in dit geval puur voor de encapsulation ge- 
bruikt; de member functies en de data mem- 
bers kunnen echter ook in regulier C worden 
geschreven als globale functies en variabelen. 


De class is als gewoonlijk onderverdeeld in 


twee delen: een private en een public deel. 
Het eerste deel bevat alle variabelen en func- 














ties die we alleen intern gebruiken en wordt 
het implementatie-gedeelte genoemd. Pro- 
gramma’s die de PrintQ class gebruiken heb- 
ben niets te maken met deze gegevens. Het 
public gedeelte bevat de functies waarmee 
we gaan werken en wordt ook wel het inter- 
face-gedeelte genoemd. 


Enkele functies zijn private, omdat ze alleen 
binnen de PrintQ zelf gebruikt worden. Een 
voorbeeld is CheckDos, een functie die con- 
troleert of DOS de juiste versie heeft. Deze 
versie moet hoger dan 3 zijn, omdat eerdere 
versies geen PRINT functies in de multiplex- 
interrupt ondersteunden. 


De meeste functies zijn vrij eenvoudig en 
doen weinig meer dan het aanroepen van de 
onderliggende functie van de multiplex-in- 
terrupt. Vermeldenswaardig is de manier 
waarop argumenten in de registers worden 
geplaatst; hiertoe kennen we een pointer- 
waarde toe aan het DX-register, geconver- 
teerd naar een unsigned integer. Een ken- 
merk van C++ is dat casts (conversies) geno- 
teerd kunnen worden als functie-aanroepen, 
vandaar unsigned(FileName) in plaats van 
(unsigned)FileName. De PrintRequest-mem- 
ber geeft weer hoe een bestand ‘gesubmit’ 
wordt naar de interrupt. Belangrijk is hierbij 
dat de pointer naar de beständsnaam van het 
type ‘far’ is. 


100 


DOS SPECIAL 3/91 











Voor enkele functies is wat meer werk ver- 
eist. Hebben we tot op heden nog niet direct 
de buffer in het geheugen aangesproken, met 
functies als Show en Insert zijn we gedwon- 
gen dit wel te doen. Hiertoe bevat de PrintQ 
een data member QueuePtr, die bij initialisa- 
tie van het PrintQ object het adres van de 
‚buffer in het geheugen zal gaan bevatten. 
Vervolgens gaan we met een lokale pointer 
de buffer af. We stoppen waar het eerste te- 
ken nul bedraagt. 

De Insert-functie maakt gebruik van de 
private functie nFilesNoStart, die het aantal 
bestanden teruggeeft maar het afdrukken 
niet hervat. Dit aantal hebben we nodig om 
te controleren of de gebruiker een juiste in- 
dex heeft meegegeven. Om een bestand in de 
queue te plaatsen, moeten eerst de achterlig- 
gende bestanden in de queue een plaats wor- 
den verschoven. Hiervoor gebruiken we de 
_fmemecpy- en _fstrncpy-functies, Borland- 





// PrintQ.h 
// Definitie van de PrintQ class 


Hif !'defined PRINTQ H 
#define PRINTQ H 


class PrintQ 
{ 
private: 
static int nInstances; 


// Structure of print request 
struct 
{ 

char Level; 

char far *FileName; 
} PrintRequest; 


// Pointer to Print queue in memory 
char far *QueuePtr; 


// Private member functions 
void CheckDos () ; 
int Status(); 
void Error( char *Fmt =0, 
int nFilesNoStart () ; 


public: 
PrintQ(); 
„PrintQ() ; 


// Check if PRINT.COM installed 
int IsInstalled(); 


// Druk een of meer bestanden af 


void Print( char far *FileName, int n =1l )}; 


// Synoniem: Append 


void Append( char far *FileName, int n =l } 


Print ( FileName, n ); 


} 


// Verwijder een of meer bestanden uit de 


// print queue (wildcards toegestaan) 
void Cancel( char *FileName }; 
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speficieke functies om far data te kopiëren. 
Als laatste wordt een afsluitende nul gezet 
om het einde van de queue aan te geven. 


Het gebruik van de PrintQ class 

Nu alle functies beschreven zijn, kunnen we 
laten zien hoe de class gebruikt kan worden. 
In een main-programma wordt één object 
aangemaakt van het type PrintQ. De PrintQ- 
constructor zorgt ervoor dat automatisch alle 
variabelen hun juiste waarden krijgen. Ver- 
volgens kunnen de member-functies ge- 
bruikt worden om operaties te verrichten op 
de printer-queue. Het volgende programma 
voegt een bestandsnaam toe aan de top van 
de queue: 


int main() 


{ 
PrintQ thePrint0; 


thePrintQ.Print( “theFile.ps” ); 
} 


// Maak de queue leeg 
void Clear( ); 


// Stop het afdrukken tijdelijk 
void Stop (); 


// Hervat het afdrukken 
void Start (); 


// Laat de inhoud van de queue zien 
void Show(); 


// Retourneer de index van een bestand 
int Index( char *FileName }); 


// Dupliceer een bestand in de queue 
void Duplicate( char *FileName, int n =1l }); 


// Voeg een bestand toe aan de queue 
void Insert ( char *FileName, 
unsigned int At =1 ); 


// Retourneer het aantal bestanden 
// in de queue 
int nFiles(); 


// Controleer of de queue geen 
// bestanden meer bevat 
int IsEmpty(); 


// Retourneer bestandsnaam van bestand i 
char *GetFile( int i ); 


Ft 
tendif 
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// PrintQ.cpp 
#include “PrintQ.h” 


Hinclude <dos.h> 

include <stdlib.h> 
Hinclude <stdio.h> 
finclude <string.h> 
finclude <stdarg.h> 
#Hinclude <conio.h> 
fHinclude <mem.h> 


enum 


{ 
FileLength = 64, 
Multiplex = Ox2F 


}; 


int PrintQ::nInstances = 0; 


PrintQ::PrintQ() 
{ 


if ( nInstances == 0 } 


nInstances++; 


} 


else 


Error( “PrintQ already installed” ); 
exit( 1 ); 


} 
if ( 'IsInstalled() }) 


Error( “PRINT.COM not loaded” ); 
PrintRequest.Level = 0; 


union REGS r; 
struct SREGS s; 


r.x.ax = Ox104; 
int86x( Multiplex, &r, &r, &S ); 


QueuePtr = (char far *)MK FP( s.ds, r.x.si ); 


} 


PrintQ::-Print@() 
{ 


} 


int PrintQ::Status() 
{ 


nInstances--; 


CheckDos () ; 
union REGS rs; 


r.x.ax = Ox100; 
int86( Multiplex, &r, &r ); 


return r.h.al; 


} 


void PrintQ::Error( char *Fmt, ... ) 


{ 


printf( “\nPrintQ Error: ”); 
if ( Fmt ) 
{ 
va list ap; 
va start ( ap, Fmt ); 
vprintf( Fmt, ap ); 
va end( ap ); 
} 
else 
printf (“General failure”); 


exit( 1 ); 
} 


void PrintQ: :CheeckDos () 
{ 


if ( __osmajor < 3 ) 


Ont 
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Error( “Must have DOS 3 or higher” }); 
} 


int PrintQ::IsInstalled() 
{ 


} 


void PrintQ::Cancel( char *FileName } 


{ 


return Status() == OxFF; 


union REGS r; 

r.x.dx = unsigned( FileName ); 
r.x.ax = Ox102; 

int86( Multiplex, &r, &r ); 


if ( r.x.ax <= 15 ) 
Error( “Could not cancel %s”, FileName ); 


} 


void PrintQ::Print( char far *FileName, int n ) 


{ 


PrintRequest.FileName = FileName; 
union REGS r; 


r.x.dx = unsigned( &PrintRequest }; 
r.x.ax = Oxl01; 
int86( Multiplex, &r, &r ); 


if ( r.x.ax <= 15 ) 
Error( “Could not print %s”, FileName }); 


if (n>0) 
Print ( FileName, -—n ); 


} 


void PrintQ::Clear() 
{ 


union REGS rs; 


r.x.ax = Oxl03; 
int86( Multiplex, &r, &r ); 
} 


void PrintQ: :Stop() 
{ 


union REGS r; 


r.x.ax = Oxi04; 
int86( Multiplex, &r, &r ); 
} 


void PrintQ::Start () 
{ 


union REGS r; 


r.x.ax = Ox105; 
int86( Multiplex, &r, &r ); 
} 


void PrintQ: :Show() 
{ 
int FileCount = 0; 
volatile char far *gqPtr = QueuePtr; 


printf ( “Queue located at $Fp\n\n”, QueuePtr }); 


if ( IsEmpty() ) 


printf( “Print queue is empty\n” }); 


return; 
} 
else 
printf( “%íi files in print queue: \n\n”, 
nFiles() }); ì 
Stop () ; 


while ( *qPtr ) 


printf( “%2i: ”, FileCount ); 





j 
| 
| 
| 
| 
| 
| 


EL 








for ( int i=0; i<FileLength && qPtr[i]; i++ ) 
putchar( qPtr[i] ); 


puts ( AN 77 ) Ë 
qPtr += FileLength; 
FileCount++; 

} 

Start () ; 


} 


// nFilesNoStart 

// Geef het aantal bestanden in de queue, 

// zonder dat het printen weer hervat wordt. 
int PrintQ::nFilesNoStart () 
{ 

Stop () ; 

char far *gPtr = QueuePtr; 

int Result = 0; 


while ( *gqPtr ) 


Result++; 
qPtr += FileLength; 
} 


return Result; 


} 


int PrintQ::Index( char *FileName } 
{ 

Stop () ; 

char far *qPtr = QueuePtr; 

int Result, Found; 


Result = Found = 0; 
while ( *gqPtr && !'Found ) 


{ 


Found = fstricmp( qPtr, 
(char far*)FileName )==0; 
Result++; 
qPtr += FileLength; 
} 
return Found ? Result-1l : -1; 
Start () ; 


} 


int PrintQ::nFiles() 

{ 
int Result = nFilesNoStart (); 
Start () ; 
return Result; 


} 


int PrintQ::IsEmpty () 
{ 


} 


void PrintQ::Insert( char *FileName, unsigned At 
) 
{ 


return *QueuePtr == 0; 


if ( At == 0 } 
Error( “Illegal attempt to enqueue file” }); 


int Count = nFilesNoStart () ; 


if ( Count <= At }) 
Print( FileName ); 
else 


// Plaats bestandsnaam in queue 
char far *Source = QueuePtr + 
FileLength * (Count-1); 
char far *Dest = QueuePtr + 
FileLength * Count; 


for ( int izCount; 1 > At; i- )} 
{ 
_fmemcpy( (void far*)Dest, 
(void far*)Source, FileLength ); 
Dest -= FileLength; 
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Source -= FileLength; 


} 


_fstrncpy( QueuePtr + At*FileLength, 
(char far*)FileName, 63 ); 
k( QueuePtr + (Count+1)*FileLength ) = 0; 
} 
} 


char *PrintQ::GetFile( int i ) 


{ 
static char Result {FileLength]; 


Result[0] = 0; 
if ( i < nFiles() ) 


_fstrcpy( (char far*)Result, 
QueuePtr + i*FileLength ); 


return Result; 
} 
void PrintQ::Duplicate( char *FileName, int n ) 
{ 

int Idx = Index( FileName ) + 1; 


for ( int i=0; i<n; i++ ) 
Insert ( FileName, Idx ); 


// eof PrintQ.cpp 
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De Intel 486 SX processor 


Sinds enige tijd heeft Intel ook voor de 80486-processor een instapmodel, de 80486 SX. 
Deze processor mist enkele eigenschappen ten opzichte van de conventionele 486 (ook wel 
486 DX genoemd) en heeft een iets lagere snelheid. Toch is deze snelheid nog steeds hoger 
dan de 386 DX-processor op 33 MHz; ter illustratie, de laatste processor zou ongeveer op 45 
MHz moeten draaien om de 486 SX te kunnen bijbenen. We zullen iets dieper ingaan op 
de mogelijkheden die deze nieuwe chip ons verder te bieden heeft. 


‚Net als destijds met de 386 DX werd door In- 
tel nu ook besloten een goedkopere, gestrip- 
te versie van de 486 uit te brengen onder de 
naam 486 SX. De grootste verschillen met 

‚ zijn grote broer zijn het gemis van een inge- 
bouwde coprocessor en de lagere kloksnel- 
heid van 20 MHz. Door het weglaten van de 
coprocessor is een 486 SX bereikbaar gewor- 
den voor een groter publiek. Niet iedere ge- 

‚ bruiker heeft immers een even grote behoef- 
te aan een mathematische coprocessor. In- 
dien een 486 SX-computer bijvoorbeeld 
‚voornamelijk voor databasing wordt ge- 
bruikt zal de toegevoegde coprocessor wei- 
nig extra performance opleveren. Toch is de 
de 486 SX een echte 32-bits processor en is de 
interne structuur van de hoofd processor het- 
zelfde als die van de 486 DX, inclusief inte- 
ger unit, geïntegreerde MMU en de cache. 
De integer unit maakt gebruik van RISC-ont- 
werptechnieken, waardoor kern integer-in- 
structies in slechts een clock cycle uitgevoerd 
kunnen worden. De geïntegreerde memory 
management unit maakt het mogelijk 64 tera- 
Byte virtueel geheugen te adresseren. 





‚Sinds de 80486 DX uitgebracht werd, staat 
‚deze bekend als een hoge-snelheidsprocessor 
waarvan de prijs echter aan de hoge kant 
‚was. Naast een ingebouwde cache bevat 
deze processor een mathematische copro- 

‚ cessor, alsmede een memory management 
„unit (MMU) met paging-capaciteiten. Mo- 
menteel is de 80486 verkrijgbaar in de klok- 
snelheden 25 en 33 MHz. 





Uitbreidingen voor de 486 SX 


‚Mocht u op een later tijdstip bedenken dat 
uw 486 SX het zonder coprocessor toch niet 
kan bolwerken, dan is de 487 SX-coprocessor 
‚ beschikbaar. Deze heeft echter een advies- 
prijskaartje van f 1500 excl. BTW zodat de to- 
taalprijs toch weer richting 486 DX kruipt. 
De 487 SX is overigens zo’n 70% sneller dan 
de 387/33 coprocessor. 


32-BIT DHRYSTONE V1.1 MIPS 


33MHz 20MHz 25MHz 33MHz 


386 DX 486" SX 486 DX 486 DX 
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Boeken over Clipper 5.0 





Werkwijzer Clipper 5.0: 
Een beknopte cursus 


‚In de ‘Werkwijzer’-serie van Sybex ver- 
„scheen enige tijd geleden dit boekje van de 
auteurs Berns en Heinz. Het is vooral gericht 
‚op mensen die in korte tijd met dit database- 
‚programma willen leren werken, maar die al 
„ervaring hebben in het programmeren in de 

‚ dBase-taal. De bij Clipper horende hulppro- 
gramma’s zoals DBEDIT, RL en DBU wor- 
‚den besproken, evenals natuurlijk het ge- 
bruik van de compiler en de linker. Tevens 
wordt de debugger behandeld, en wordt een 
‚ voorbeeldprogramma ontwikkeld voor de 
koppeling met WordPerfect-bestanden voor 
mailings. 





Titel: Werkwijzer Clipper 5.0 

‚Auteurs: Klaus Berns en Andreas Heinz 
Taal: Nederlands 

‚Uitgeverij: Sybex BV, Soest 

‚Omvang: 168 pagina’s 

ISBN: 90-5160-322-3 

vr Feijssj 24,05 











Werkwijzer Clipper 5.0: 
Functies en 
commando’s 


Twee werkwijzers over Clipper 5.0 vielen 
‚ons deze keer ten deel. Dit exemplaar is iets 
dunner dan zijn broertje en behandelt alle 
commando’s, functies en opties van de hulp- 
programma’s. Het boekje is vooral bedoeld 
als ‘quick reference’ voor alle gebruikers van 
Clipper 5.0. Ook wordt de EXTEND-interfa- 
ce naar andere talen zoals C en assembly ge- 
noemd, alsmede de object-georiënteerde uit- 
breidingen zoals de error-class. In het boek 
worden geen voorbeeldprogramma’s uitge- 
werkt, het is enkel een complete lijst van alle 
mogelijke Clipper-commando’s en functies. 
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‚Titel: Werkwijzer Clipper 5.0 
‚Auteurs: Frank Brakenhoftf en Dré van Melis 


Taal: Nederlands 
Uitgeverij: Sybex BV, Soest 
Omvang: 126 pagina’s 


ISBN: 90-5160-323-1 
| Prijs: f 24,95 


Clipper 5.0 (Sybex 
professioneel) 


Dit boek is een absolute must voor professio- 


‚nele Clipper-programmeurs. In bijna 800 pa- 


gina’s worden alle eigenschappen van deze 


‚compiler uit de doeken gedaan, inclusief de 

| koppeling met C, het gebruik van netwerken 
‚en de bestandsstructuren van de meestge- 

_ bruikte bestanden. Het eerste hoofdstuk be- 

| spreekt het compileren en linken van Clip- 

‚ per-toepassingen, waarbij ook het gebruik 
‚van libraries en het RMAKE-programma 
‚worden behandeld. In het tweede hoofdstuk 


wordt de Clipper-taal uitgelegd, het gebruik 
van de preprocessor, lokale variabelen, code- 


‚ blokken en de voorgedefinieerde klassen die 
‚deel uitmaken van de object-georiënteerde 


uitbreiding van Clipper 5.0. Hoofdstuk drie 


Kiek Spence 
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is in zijn geheel gewijd aan arrays en de daar- 
voor beschikbare functies. Het vierde hoofd- 
stuk behandelt het SET KEY TO-commando 
en scherm- en database-stacks. Memovelden 
en het werken met bestanden vanuit Clipper- 
programma’s worden in de volgende twee 
hoofdstukken besproken. Een belangrijk on- 
derdeel van Clipper-programma’s, namelijk 
de gebruikersinterface, wordt in hoofdstuk 
zeven besproken. Hierbij worden ook de 
TbColumn en TBrowse classes behandeld; 
een vreemde term is hier ‘gevalsvariabele’. 
Pas na enig zoekwerk werd het duidelijk dat 
hier member-variabelen van een klasse be- 
doeld werden, die voor objecten van die klas- 
se beschikbaar zijn. In zo’n geval zou het be- 
ter zijn de Engelse term te gebruiken, als de 
vertaling onduidelijkheden oplevert. Het ge- 
bruiken van databases wordt in de bijna hon- 
derd pagina’s van hoofdstuk acht, bespro- 
ken. Daarna wordt de interface tussen Clip- 
per en C besproken, een mogelijkheid die 
ook steeds meer mensen gebruiken om de 
‘low-level’-kracht van C met de database- 
kracht van Clipper te combineren. Na een 
hoofdstuk over het gebruik van Clipper in 
een netwerk wordt in het laatste hoofdstuk 
ingegaan op de bestandsstructuren van DBE, 
DBT, FRM, LBL, MEM, NDX en NTX-bestan- 
den. Dit is vooral handig voor program- 
meurs die in een andere taal dan Clipper ge- 
bruik willen maken van bestanden in de ge- 
noemde formaten. De uitleg maakt gebruik 
van C-structuren, maar is zonder meer van 
toepassing op andere talen, zoals Pascal. 


Eigenlijk heeft dit boek maar één nadeel: 
de index. Hoe kan de index van een boek 
van dit formaat nu maar één trefwoord be- 
ginnend met een ‘J’ bevatten, vier met een 
‘K’ enzovoort. Voor de rest is Clipper 5.0 uit 
de Sybex Professioneel-serie is een zeer com- 
pleet boek voor de veeleisende Clipper- 
programmeur. 


Titel: Clipper 5.0 (Sybex Professioneel) 
Auteur: Rick Spence 

Taal: Nederlands 

Uitgeverij: Sybex BV, Soest 

Omvang: 780 pagina’s 


ISBN: 90-5160-317-7 


Prijs: f 99, 














KEER ERE Ee 
Werken met Clipper 5.0 


Hier vierde boek van Sybex over Clipper 5.0 
is volgens de achterflap een handleiding, 
leerboek en naslagwerk voor zowel starters 
als gevorderden. Het boek bevat bovendien 
de subtitel ‘Deel 1’; deel twee gaat dieper in 
op de theoretische achtergronden van de 
Clipper-taal en op de technieken van object- 
georiënteerd programmeren. Deel één is dui- 
delijk gericht op het ontwikkelen van grote 
applicaties in de praktijk; in hoofdstuk drie 
wordt dan ook een SYBEX-voorbeeld pro- 
gramma ontwikkeld om de administratie 
van deze uitgeverij bij te houden. De ontwik- 
keling van dit programma neemt inclusief 
enige tekst en uitleg vijftig pagina’s in be- 
slag. In de rest van het boek wordt voorna- 
melijk ingegaan op de hulpmiddelen die bij 
de Clipper-compiler horen, iets wat eigenlijk 
ook in de vorige boeken is behandeld. Alleen 
hoofdstuk tien gaat nog over programma- 
onderhoud, maar dan alleen met behulp van 
RMAKE. Eigenlijk gaan alleen de eerste drie 
hoofdstukken over programma-ontwikke- 
ling met Clipper, de rest is weinig verschil- 
lend van andere boeken en de Clipper-hand- 
leidingen. Het is dan toch jammer dat van 
een ‘Werken met’-boek slechts zo’n 100 pagi- 
na’s ofwel minder dan 25% gewijd is aan het 
ontwikkelen van projecten. 


Titel: Werken met Clipper 5.0 
Auteur: Martin Labee 

Taal: Nederlands 

Uitgeverij: Sybex BV, Soest 
Omvang: 450 pagina’s 

ISBN: 90-5160-278-2 

Prijs: f 59, 
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Boeken over C++ 





Using C++ 

Bruce Eckel, de auteur van dit boek, is een er- 
varen C++ gebruiker en lid van het ANSI 
C++ comité. Het boek behandelt C++ versie 
1.2 met behulp van de Glockenspiel en Zor- 
tech C++ compilers. Het boek is dus in feite 
gebaseerd op een oude C++ standaard, hoe- 
wel de eigenschappen van 2.0 kort aan bod 
komen. In het eerste hoofdstuk wordt object- 
georiënteerd programmeren behandeld, ter- 
wijl in hoofdstuk twee het gebruik van voor- 
gedefinieerde classes wordt besproken. Veel 
aandacht wordt geschonken aan het creëeren 
van classes en de interne werking hiervan, 
wat in C++ erg belangrijk is. Complete voor- 
beelden worden gevonden in hoofdstuk 10, 
en in de bijlagen. Voor iedereen die verder 
wil in de C++ taal en die meer wil weten 
over de creatie van objecten in C++, is dit 
een zeer aanbevelenswaardig boek. Een sterk 
punt van het boek is dat ook gevorderde 
C++ programmeurs er iets aan hebben, zo- 
dat het boek ook na de beginnersfase waarde- 
vol blijft. 


Titel: Using C++ 

Auteur: Bruce Eckel 

Taal: Engels 

Uitgeverij: Osborne-McGraw Hill, Berkeley, 
CA 


Omvang: 617 pagina’s 
ISBN: 0-07-881522-3 
Prijs: $24.95 


Turbo C++ 
Programming 


Reeds op pagina twee van dit boek wordt in- 
heritance (overerving) in C++ uitgelegd, in- 
clusief source-code voorbeelden. Pas daarna 
wordt ingegaan op de methoden, encapsula- 
tion enzovoort. Dit is op zijn zachtst gezegd 
een vreemde indeling, die de leesbaarheid 
niet bevordert. Ook de manier waarop 
source-code wordt gebruikt geeft aanleiding 
tot vraagtekens: er wordt geen gebruik ge- 
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maakt van aparte .cpp bestanden in een pro- 
ject, maar het hoofdprogramma neemt alle 
source-modulen op door middel van het #in- 
clude directive. Tevens wordt het woord ‘sta- 
tic’ op sommige plaatsen in de tekst ver- 
keerd gebruikt. De voorbeelden hebben in de 
meeste gevallen betrekking op grafische toe- 
passingen zoals scrollbars en push-down but- 
tons. Al met al is dit boek niet aan te raden 
als leerboek, maar ook gevorderde C++ pro- 
grammeurs zullen het niet echt bruikbaar 
vinden. 


Titel: Turbo C++ Programming 

Auteur: Ben Ezzell 

Taal: Engels 

Uitgeverij: Addison-Wesley, Reading, MA 
Omvang: 420 pagina’s (diskette ingesloten) 
ISBN: 0-201-55051-2 

Prijs: $ 34.95 


Mastering C++ 


Dit boekje, dat de subtitel ‘An introduction 
to C++ and object-oriented programming for 
C and Pascal programmers’ draagt, behan- 
delt de meeste eigenschappen van C++ in cir- 
ca 270 pagina’s. In de eerste zeven hoofdstuk- 
ken worden data, functies, pointers, classes 
en overloading besproken. Aparte hoofdstuk- 
ken zijn gewijd aan in- en uitvoer met be- 
hulp van de stream-library en aan geheugen- 
beheer. Inheritance wordt in hoofdstuk tien 
besproken, terwijl de overige drie hoofdstuk- 
ken gewijd zijn aan modulen, generieke clas- 
ses en object-georiënteerd ontwerpen. Een 
aardige eigenschap van het boek is dat apar- 
te ‘notes’ zijn aangebracht voor C- en Pascal- 
programmeurs, zodat de nieuwe eigenschap- 
pen vergeleken kunnen worden met de ver- 
trouwde aanpak. Hoewel de aanpak van het 
boek in het algemeen vrij academisch is (de 
auteur is dan ook verbonden aan de San Jose 
State University), worden veel technieken 
duidelijk besproken, ook technieken die in 
andere boeken niet of nauwelijks aan de 

orde komen. Een klein nadeel van het boek 

is dat de voorbeelden weinig variatie verto- 
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nen; veel gelinkte lijsten, strings en matrices 
en dergelijke classes worden als voorbeeld 
gebruikt. Het boek is niet afhankelijk van 

een bepaalde C++ compiler, en is mede dank- 
zij de opgaven ook geschikt als leerboek bij 
onderwijsinstellingen. 


Titel: Mastering C++ 

Auteur: Cay Horstmann 

Taal: Engels 

Uitgeverij: Wiley & Sons, New York, NY 
Omvang: 278 pagina’s 

ISBN: 0-471-52257-0 

Prijs: ca. $ 32.00 


Be en en EE 
Werken met C++ 


Een boek dat de taal C++ behandelt aan de 
hand van de Zortech C++ compiler, is Wer- 
ken met C++. In het eerste hoofdstuk wordt 
een beknopt overzicht gegeven van de taal 
C,‚ waarop C++ gebaseerd is. Object-georiën- 
teerd programmeren en de eerste beginselen 
van C++ worden in hoofdstuk twee uitge- 
werkt, waarop in hoofdstuk drie wordt door- 
gegaan. In deze hoofdstukken worden clas- 
ses, constructors, destructors, de algemene 
verbeteringen van C++ op C, friends en over- 
loading besproken. Hoofdstuk vier is geheel 
gewijd aan de stream library, terwijl hoofd- 
stuk vijf inheritance behandelt. Het boek is 
vrij praktijk-gericht, en bevat vele voorbeel- 
den van mogelijke classes in de laatste vier 
hoofdstukken. Naast de bekende zaken als 
abstracte datastructuren wordt ook een dBa- 
se-class ontwikkeld, een interface naar de 
Clipper compiler en enkele rekenkundige 
classes. In hoofdstuk negen worden de libra- 
ry-functies van de Zortech compiler bespro- 
ken, terwijl ook een muis-class wordt ontwik- 
keld. Het laatste hoofdstuk bevat een vrij uit- 
gebreide class-library voor grafische 
toepassingen, waarmee tevens een voor- 
beeldprogramma wordt ontwikkeld. In de 
bijlagen wordt onder andere de ‘name man- 
gling’-techniek besproken. Deze wordt door 
C++ compilers gebruikt om identifiers mee 
te versleutelen naar unieke interne namen, 
om function en operator overloading moge- 
lijk te maken. Dit boek is geschikt voor zo- 
wel beginnende als gevorderde C++ pro- 
grammeurs die willen weten welke toepas- 

















singen er met C++ geschreven kunnen wor- 
den. Alle voorbeelden zijn verkrijgbaar op 
een aparte diskette. 


Titel: Werken Met C++ 
Auteur: John Caspers 
Uitgeverij: Sybex BV, Soest 
Omvang: 388 pagina’s 
ISBN: 90-5160-174-3 

Prijs: f 69, — 


EEE 
Programming in C++ 


Een vrij moeilijk te lezen boek met veel ver- 
schillende voorbeeldclasses, en net als ‘Mas- 
tering C++’ compiler-onafhankelijk en voor- 
al gericht op studenten en professionele pro- 
grammeurs. De voorbeelden variëren van 
vliegveld-simulaties tot gelinkte lijsten, en 
zijn gebaseerd op C++ versie 2.0. De indeling 
had iets duidelijker gekund, maar de inhoud 
is van hoge kwaliteit en behandelt de meeste 
eigenschappen en ‘pitfalls’ van C++. In te- 
genstelling tot Horstmanns boek is ‘Program- 
ming in C++’ echter minder geschikt voor de 
beginnende C++ programmeur. 


Titel: Programming in C++ 

Auteurs: Stephen Dewhurst en Kathy Stark 
Taal: Engels 

Uitgeverij: Prentice Hall, 

Englewood Cliffs, NJ 

Omvang: 233 pagina’s 

ISBN: 0-13-723156-3 

Prijs: f 54 — 


The Annotated C++ 
Reference Manual 


Dit standaardwerk van de schepper van 
C++, Bjarne Stroustrup, is een must voor 
elke C++ expert. In de wandelgangen ‘ARM’ 
genoemd, biedt dit boek een uitweg voor de 
meest obscure problemen die tijdens het ge- 
bruik van de C++ taal kunnen optreden. Het 
boek is door het ANSI C++ comité gekozen. 
als ‘base document’ voor de standaardisatie 
van de taal; tevens zijn voorgestelde uitbrei- 
dingen zoals templates (waarmee genericity 
mogelijk wordt) en exception handling vorig 
jaar door het comité goedgekeurd. Van vele 


| technieken wordt uitgelegd waarop juist 
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voor die aanpak is gekozen, en niet voor de 
‚alternatieven. Dit en de grondige behande- 
ling van alle elementen van C++ maakt de 
ARM vooral geschikt voor compiler-bou- 
„wers en professionele C++ programmeurs. 


Titel: The Annotated C++ Reference Manual 
Auteurs: Margaret Ellis en Bjarne Stroustrup 
Taal: Engels 

Uitgeverij: Addison Wesley, Reading, MA 
Omvang: 447 pagina’s 

ISBN: 0-201-51459-1 

Fiji ror 





Turbo C++ 


Specifiek voor de Turbo C++ compiler is dit 
boek van Pim Philipse, uitgebracht door Klu- 
wer technische boeken. In het tweede hoofd- 
stuk wordt onder andere de taal C++ punts- 
gewijs behandeld. Voor de gevorderde ge- 
bruiker een leuk overzicht, maar zeker te 
beknopt voor de beginner. Ook in hoofdstuk 
vier wordt de taal uitgelegd, maar weer erg 
beknopt. Het uitleggen van classes, waar het 
object-georiënteerde programmeren van 
C++ om draait, gebeurt bijvoorbeeld in 
slechts 7 pagina’s! Dit is dus geen boek om 
C++ uit te leren, maar in feite een verkapte 
handleiding. In honderd pagina’s worden de 
library-functies behandeld, iets wat in de 
geïntegreerde omgeving van Turbo C++ on- 
der de functietoets Ctrl-F1 ook zeer uitge- 
breid aanwezig is. 

In tegenstelling tot andere boeken van 
Philipse, beslaan de voorbeelden in dit boek 
slechts ongeveer 15 pagnia’s; hierin wordt 
een string-class, een bestandsclass en een 
‚class om windows met streams te combine- 
ren ontwikkeld. Leuke voorbeelden die ook 
‚goed doordacht zijn, en jammer dat hier in 
het boek niet wat meer aandacht wordt be- 
steed. Dit is eigenlijk het grote nadeel van 
het boek: Turbo C++ gebruikers hebben wei- 
nig behoefte aan een complete lijst van alle li- 
brary-functies (die immers ook in de hand- 
boeken staan en online opvraagbaar zijn), 
maar des te meer behoefte aan een duidelijke 
behandeling van de taal C++ met veel ver- 
schillende voorbeelden. Voor de beginnende 
C++ programmeur is dit boek dus eigenlijk 
niet geschikt. 





| 
| 
| 
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Titel: Turbo C++ 

Auteur: Pim Philipse 

Uitg: Kluwer Technische Boeken, Deventer 
Omvang: 303 pagina’s 

ISBN: 90-201-2502-8 

Prijs: f 49,50 





QuickStart 
MS-DOS 5.0 


De voordelen en veranderingen van versie 





5.0 zijn in een beknopte manier samengevat 
in deze QuickStart, zodat u na het installeren 
meteen aan de slag kan. Er wordt uitgegaan 
van een redelijke basiskennis van MS-DOS, 
maar er zullen weinig gebruikers zijn die de 
terminologie niet kunnen volgen. Een Quick- 
Start van SYBEX bestaat uit twintig stappen, 
waarbij hier de eerste tien zijn gereserveerd 
voor het gebruik van de grafische shell van 
DOS 5.0. Erg belangrijk is de stap die han- 
delt over hoe optimaal gebruik te maken van 
de nieuwe geheugentechnieken. Ook het te- 
rughalen van gewiste bestanden en het onge- 
daan maken van een formattering van een 
schijf komt aan de orde. Bent u nog niet in 
het bezit van DOS 5.0, en u wilt weten wat 
de nieuwe mogelijkheden zijn alvorens het 
te kopen, dan heeft u aan dit boek een goede 
handleiding. 


Titel: QuickStart MS-DOS 5.0 

Auteur: Alan Simpson 

Uitgeverij: SYBEX Uitgeverij BV Soest 
ISBN: 90-5160-299-5 

Ens 2095 
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Aanbieding v/d maand 


BCE 386 20 MHz Computers 386 SX 
BOE 386 SX-46 MHZ ‚ran f 2.600 
Een echte snelle 386 1 MB, 5,25" of 3,5", 40 MB 28 ms, hercules 
voor een 286 prijs met: met VGA Monochroom ……… f 3.000 
2 MB RAM, 5,25" & 3,5, 
40 MB 28 ms, Hyundai 386sx 16 MHz 
+ Super VGA monitor Een prima 386 voor een 286 prijs met: 


| SUPER STUNT 


Eindelijk een betrouwbare 16MHz AT 
met Super-VGA kleuren monitor 


1MB geheugen, 40MB 28 ms HDD, 

3,5" + 5,25"/ 1,2MB FDD, 
1024x768 VGA-kaart en 
Super Color VGA-monitor 


je 2.950, - incl. BTW. 





kleur 1 MB RAM, 5,25’ + 3,5" FDD, 40 MB 28 
f A 950 incl ms, DOS 4.01 + monitor VGA kleur 
f 3.695,- incl. star coo, o nids 180eps … …… f_ 550, 
met Hercules monitor Star LC 24-10, 24 nlds … f 899,- 
BCE AT386 95Mhz HP Deskjet 500, inkjet ……......… Î kde 
f 3250,- Dé 386 voor de zakelijke gebruiker. Snel. NEC P20, 24 nlds f 1.095,- 
betrouwbaar, in Tower-kast, tot 8MB, zeer za an a Sen es As. 
EE | ORE geschikt als Server. Met 2MB, 5.25'+3,5' cete hae a 
kn een dede FD, 45MB, monitor … f 3999, 5 ppm HPII compatibel 
16 MHz AT met | MB, | x FDD, Hercu- __386/25 met 100 MB HardDisk, .….f 4.850,- Toner f 55 per: 4 SKS xt f 220,- 
les monitor/ 40 MB snelle harddisk. 33 MHz met cache f 1000,- extra Replacement kit f 698,- 
edt f 1950, 
Amber monitor meerprijs … f 150,- | Monitoren 
Paper white flatscr. meerprijs …..… f Tate 40 ‚ower 385 20 MHz 14'-HOECHES- OOB: f-199- 
Met 2x PDO — oane ananas ed f 2.095,- ef 14"-Flat-Screen -Paperwhite/amber.f 345, 


Met 1 x FDD en VGA kleur monitor f 2./50,- ne É ke el VGA monochroom-14:-p/w +-kaatt-f-549,- 
Met 2 x FDD VGA monchroom ……….f 2.400,- Zonder motor. f SA, NERO Dar En f 690 
dem met Super VGA... f 2.9 50,- Süper VGA 1024 x 768 
BCE 486 25 MHz | incl. VGA 46 bite 512 KB kaart. f-4495 
Voor wie het-onderste uit de-kan wit. Deze CTX muitisyne super vga met kaart. f1-605,- 


meerprijs 1 MB f 275, racer compleet met 8 MB, 130 MB en Supet- 
Inbouw tapestreamer 100MB..... f 1295,- de an slechts SO Í en Modems. 
80 MB meerprijs … f 59, nan uien À zoos … Intern 2400B modem MT f 215,- 
100 MB meerprijs (boven 40 MB) ……f 899,- EE EE itern, 24008, Tornado ai. ERP 
Muis Cutie f 99 Laptops Extern, 2400B, Tornado f 450, 
Meis. COGNES …e oaeen nd f 130- _ rt Tornado: fax/modem- 9600/2400. … f-695,- 
onbe. zone Witdeetabare harddisk, LcD Arde EMB IDE Ten Le, 
Rb | HardsK:80:MB EE f-1095,- 














ächerm VGA f 4.795, 


EAB 700000, ce io er ook voor uw sup 


LP-X1: 11 paginas AE oct 1,2: en 20 MB harddisk f2205- plies zoals diskettes/printertin- 
HP LJ compatible, 512 inclusief gratis draagtas. ten/standaards enz. Bel- voor 


KB, 300x300dpi meer informatie 


Stuntprijs: f 2.495,- incl. Printers (met kabel) 
C-ltoh 5 m - HP LJ2 Mannesmann Tally MT 81 ...... f 425,- 
pp t-Mannesman: Tallv-82 


ll el AL DES hhE 24 naalds met 50 nlads sheetfeeder f 995,- 


- Ape N iN 


| 
| 


Benelux Computer Exchange 


Showroom: Weesperstraat 103 Amsterdam; Geopend ma. 14 tot 17 di. t/m vr. van 10 tot 18 uur Zat tot 17 u 
tel. 020 - (6)203239; fax 020 - (6)268975 of (6)253260 


VON LISTAN DEEL LEL, 


dr and 





DB 3.0 PC-DBMS 


Een compleet relationeel database management sys- 
teem. Het kan bestanden combineren, waardoor de 
nodige invoertijd en diskruimte aanmerkelijk bekort 
worden 


DB 5.3/DB 6.3 File Express (2 disks) 
Minimaal 384 Kb benodigd. Een krachtig, snel 


DBMS-systeem. Echter ontbreken hier de relationele 


rapporteringsmogelijkheden van PC-file+, waardoor 
het programma wel sneller te leren is voor de be- 
ginner of occasionele gebruiker. Een limiet (?) van 
16.000.000 records, 120 velden per record, 250 
tekens per veld. Veel mogelijkheden.”5 sterrenschijf" 


DB 7.3 Adreslabels 

Een compleet mailing/postmanagementsyteem, voor 
het produceren van naam- en adreslabels. Snel en 
makkelijk in het gebruik. Adressen kunnen op allerlei 
manieren gesorteerd worden. Spoort dubbel ingevo- 
erde records in bestanden op en dat kan veel werk 
besparen. Het heeft ook een intern mail merge sys- 
teem om standaardbrieven te maken. 


DB 8.0 pBase DBMS 
Programmeerbaar relationeel database management 
systeem. Het concept lijkt op dBase |l, maar is wel 
meer gestructureerd, ongeveer zoals SQL, IBM's 
Query aanpak die zo in de belangstelling staat. Met 
onder meer onkosten-, inventaris- en verzendlijst- 
programma’s. 


DB 9.0 Instant recall 

Een vrije vorm database management systeem als 
TSR (Ramresident) programma, dus altijd snel be- 
schikbaar. Meerdere databases tegelijk open. Zeer 
sterke opzoektechnieken en schuiven met data en 
screens. ASCI| import en export, maximaal 80KB 
files. 


DB 10.0 PC-LIT 

Een programma speciaal bestemd voor het index- 
eren van tijdschriftartikelen in een archiefkast. Het is 
in het algemeen geschikt voor het indexeren van 
genummerde artikelen. Dit is een DBMS-toepassing 
die gemakkelijk kan zijn voor bibliotheken, infor- 
matie- en knipseldiensten. 


DB 11.3 Wampum 

Een fraai menu-bestuurd systeem om dBase III te 
gebruiken. Hiermee kan zelfs de amateur schitteren- 
de toepassingen gaan ontwikkelen. Compleet met 
geavanceerde functies als audit trial, memo velden, 
edit checks, macro's en mail merge form letters. Dit 
programma is toegerust voor network support. Met 
wachtwoordbeveiliging. 512 KB en harde schijf ve- 
reist. 


DB 18.0 Catalog reference 

Dit systeem is speciaal ontworpen voor het catalo- 
giseren van boeken, kranten, tapes, cassettes, dis- 
kettes, films etc. Krachtige zoekmogelijkheden. 
Geschreven in dBase Il. Nodig is een harde schijf 
of twee floppy drives. 


DB 25.0 Free File 

Een buitengewoon gebruiksvriendelijk database-sys- 
teem wat de gebruiker binnen de kortse keren in 
staat stelt een database te creeeren entebeheren. 
Uitgebreide helpfuncties zijn ingebouwd.Draait op 
alle monitortypes. Max 2 miljard(!) records en 1000 
velden per bestand. Min. 256 Kb en 1 (hard) disk- 
drive. Zeker aan te raden voor beginners ! 


DR 1 Painter's Apprentice 
DR 29.0 Finger Paint 


Tekenprogramma van grote klasse. Vergelijkbaar 
met Dr Halo, PC Paint etc. Geschikt voor CGA/EGA 
en Hercules. Muis optioneel. Voorzien van zes let- 
tersfonts in 81 formaten. Een van de uitschieters uit 
onze Busware-reeks 





DR 30.0 Picture This 

Tekenprogramma geschikt om tekeningen in 
POSTSCRIPT-formaat te ontwerpen. Voorzien van 
zoom- en lijndiktecontrole. Het voordeel van EPS- 
(Encapsulated PostScript) tekeningen is de afwezig- 
heid van de gekartelde lijnen bij de tekeningen. De 
schijf bevat tevens Capture This, een CGA screen- 
capture-programma. 


DT 2.0 dBAse II systems 


Voor de aanhangers van dBase |l een aantal volledig 
uitgewerkte toepassingen die ook zelf kunnen wor- 
den aangepast. Een time billing systeem, mailinglist 
programma, genealogy programma, rolodex simula- 
tor en Gourmet voor receptenbeheer. 


DT 3.0 dBase III 1 


Support tools voor dBase |I van Ashton Tate. On- 
misbaar voor de serieuze databaas. Met veel printer- 
hulpjes, dBase in kleur, een ingekorte Wampum, 
flowfunctie, menumaker, etc. Ook met een paar uit- 
gewerkte voorbeelden. 


DT 4.0 dBase III 2 


Een aantal goede utilities voor gebruik met dBase Il, 
waardoor de mogelijkheden van een goed commer- 
cieel systeem sterk uitgebreid kunnen worden. De 
diskette bevat o.a. een koppeling naar programme- 
ertaal C, een screen editor, en data dictionary 
DBSTRUPO. De screen editor is in feite een applica- 
tie-generator die programma- en screenfiles aanma- 
akt. 


EC 3.1 Typing Teachers (v/h ED 
8.0) (CGA/ BASIC) 

Bevat twee typecursussen. Behalve de normale ty- 
pemachinetoetsen komen ook de specifieke pc- key- 
boardtoetsen aan bod. Bevat verschillende oefening- 


en op diverse niveau's, snelheidstests, typefout sig- 
naleringsroutines en accuratessebeoordelingen/ 


ED 4.0 PC Education 2 


Natuurlijk moet je ook met de PC leren omgaan en 
wat is dan leuker dan dat met de PC zelf te leren. 
Dit is een complete interactieve les. Onderwerpen als 
toetsenbord, terminologie, 1/0, DOS kommando'’s en 
het gebruik van de BAT-com. taal komen aan de 


orde. Helaas alleen voor wie goed thuis is in het 


Engels, maar dan ook grote klasse! 


ED 5.0 Elementary Ed.1 

Educatieve software voor de kinderen. De rekenspel- 
letjes zijn natuurlijk universeel, voor de woorden is 
enige kennis van het Engels meegenomen. De com- 
puter als hulpleraar. Deze schijf hoort men zeker te 
hebben wanneer er kleine kinderen in huis zijn. Basic 
nodig. 


ED 6.0 Teacher’s Tools 

Dit is een database systeem voor het bijhouden van 
de gegevens, cijfers en resultaten van de klas. Aan- 
passing van het VS systeem van cijfers geven is 
mogelijk. Dit is iets voor de leerkracht met een com- 
puter. 


ED 14.0 Elementary Ed. 2. 

Speelse leerprogramma’s om kinderen in de leeftijd 
van 4 tot 9 met en door de computer te laten leren. 
Gezien de Engelstalige aanpak in ons land misschien 
iets voor oudere kinderen, de rekenspelletjes zijn 
meer universeel.(CGA) 


„ae RYE WARS 


EJ 5.0 Flags of the world 

Versie 6.04 Een kleurrijke database van maar liefst 
275 vlaggen van over d2 hele wereld; zowel landen 
als de bekendere organisaties (E.E.G. ect.) Tevens 
bevat deze schijf ook 50 volksliederen van meest 
bekende landen. Als U ze allemaal denkt te kennen: 
In het programma zit een herkenningsquiz ing- 
ebouwd. 

Echt leuk programma. Helaas alleen EGA/VGA com- 
patibel. 


EN 1140 & EN 11B.0 NEC Data- 
base 

Data van de Nat. Electric Code 1984. Data kunnen 
toegevoegd worden. Met o.a. 1- en 3-fase transfor- 
mers. (Harddisk en 640 Kb ram vereist). 


EN 12.0 Motorola Database 
Motorola's complete discrete device offering. Met 
meer dan 7000 items, 58 catagorieen en 20.000 
cross-references. Eenvoudig te gebruiken. 


FO 3 A FF Forth 1 
FO 3 B FF Forth 2 


GA 1.0 Games 1 

Verschillende spelletjes. (CGA/ EMULATOR) Scha- 
ken: spelkwaliteit redelijk goed, spelniveau is in te 
stellen tussen 1 en 6. Verder bevat de schijf een 


. kruiswoordpuzzle, Vier op een Rij, het spel “PENTE” 


(een GOMOKU-achtig spel), Hi-Q en “LAB”. 


GA 8.2 Adventure system 

Het spelen van een computerspel op de PC is leuk, 
zelf zoiets maken nog leuker en leerzamer. Dit pakket 
is voor het maken van tamelijk ingewikkelde Adven- 
ture Games, dus begin maar met het verzinnen van 
enge situaties en welke vragen daar gesteld kunnen 
worden. Er is natuurlijk ook een voorbeeld-spel bij, 
dus u heeft altijd wel iets aan deze schijf. Een beetje 
programmeerervaring is wel nodig. 


GA 16.0 Classic Games 


Games, geschikt voor CGA/EGA en Monochrome 
(met CGA_emulator) monitoren. Bevat o.a. Monopo- 
ly, Dammen, Backgammon en een paar kaartspelle- 
tjes. 


GA 22.0 Bridge 

Eindelijk een goed bridge-spel. Speel een hand, de 
computer speelt de andere drie. Het is ook mogelijk 
dit spel met twee spelers te spelen. De computer 
houdt de score bij. Veel conventies worden herkend. 


GE 2.1 Family Ties 

Dit mooie genealogy programma is goedgekeurd 
door de Latter Day Saints (Mormonen). Rapportage 
kan geschieden op de officile LDS-manier of op de 
standaard manier, die minder formeel is. Dit syste- 
em behandelt een moeilijk onderwerp maar is door 
de vriendelijke gebruikers-interface makkelijk te be- 
sturen. 


GP 3.0 Pictures 3 

Een uitgebreide compilatie van diverse plaatjes, in te 
laden in o.m. Timeworks Desktop Publisher, Ventura 
Publisher en Paintbrush. In totaal 297 stuks ! In 
„PCC formaat. 


De juiste manier om de PC Busware diskettes snel geleverd te 
krijgen is het overmaken van het betreffende bedrag (f 7,50 of 
Bfr 200 per disk/ bestelt u meer diskettes tegelijkertijd dan 
bedraagt de prijs per 5.25" diskette f 5,00/ Bfr. 150/ prijs 3.5" 


f8,50/Bfr 250/ bij meerdere disks f6,-/Bfr 175) op gironummer 
3157656 t.n.v. Infolist Amsterdam, Postbus 43048, 1009 ZA 
Amsterdam (voor België BBL310-0506025-62 t.n.v. SAC), met 
vermelding van het zendadres en de codenummers van de 
gewenste diskettes/formaat ( 5.25" of 3.5") 





GP 4.0 Computer Logos 

Een veelheid (108) aan gescande computeremble- 
men, in Dr Halo .CUT formaat. Tevens 17 lijnteke- 
ningen van computer-gerelateerde onderwerpen. 


GP 6.0 Drop Cap 

Zesentwintig letters in .Img formaat (lettertype Hel- 
vetica), in te laden in ondermeer Ventura Publisher 
en Timeworks Desktop Publisher. Naast deze letters 
bevat de schijf een assortiment pijlen en andere 
“richtingaanduiders” in .Jmg formaat. 


GP 7.0 Symbols 

78 Algemene plaatjes en symbolen met betrekking 
op o.a. astrologie, medicijnen, winkels en reizen. 
Gescand in Dr Halo ‚cut formaat en geschikt voor 
o.a. Ventura en Timeworks. 


GP 8.0 Old English Capitals 
26 Hoofdletters zowel in PC Paintprush formaat 
(.PCC) en GEM Image formaat (.IMG) 


GP 10.0 Whiplash Clipart 


19 verschillende tekeningenbestanden in MacPaint 
formaat (.MAC) Deze plaatjes onderscheiden zich 
door hun buitengewoon goede scherpte. Eventueel 
overzetbaar im Ventura / Timeworks „IMG formaat. 


GR 7.0 Picture viewers 

Een compilatie van verschillende programma’s wel- 
ke de diverse courante (en minder courante) plaat- 
jesformaten op het beeldscherm toont. Om maar 
eens wat formaten te noemen: *.GIF ; Mackintosh 
*_RLE voor Hercules t/m VGA. Verder PCX, CUT , 
PIC IFF (deLuxePaint) en SCX Monitorcompatibliteit 
afhankelijk van het gebruikte programma (7 stuks) 


GR 8.0 Draftsman 

Draftsman is een geavanceerd zakelijk grafisch sys- 
teem, dus voor “Business Graphics”, de bekende 
bar, pie (taart), exploded pie, line etc. Alle grafie- 
kvormen zijn mogelijk. Titels en legenda’s kunnen 
erin verwerkt worden, lijnen getrokken etc. DIF file 
import is mogelijk, dus ook vanuit Lotus en dBase 
interfacing. Zeer goed programma van professioneel 
niveau. Uitdraai via diapresentatie op Epson printer 
of HP 7470 plotters. CGA nodig 


GR 9.1Presentation Graphics 
Present is een prima programma voor het maken 
van diashow-presentaties, waarbij het mogelijk is 
om zowel tekst als grafische informatie uit andere 
programma's toe te passen. Het is mogelijk met 
zowel een kleuren-, als met een monochrome mo- 
nitor te werken. Het pakket kan 12 verschillende 
soorten fade-ins maken en kan de samengestelde 
presentatie zowel automatisch als handmatig weer- 
geven. Er is een screencapture. bij en de files zijn 
compatible met Basic Bsave files. 


GR 10.0 Dancad 3D 


Een uitgebreid driedimensionaal (wire frame) teken- 
en grafisch programma. Het werkt op een standaard 
graphics monitor. Het hoofdprogramma geeft een 
kijk vanaf de voorkant, bovenkant en vanuit verschil- 
lende perspectieven. Printen, met hoge resolutie, 
kan op Epson printers of verschillende plotters. Er 
is 512 KB nodig, CGA en enige programmeererva- 
ring. 


GR 11.0 Slide Shows 


Een erg goed programma op deze schijf is GRASP, 
een presentatiesysteem met screenplay utility en sli- 
de show funkties.Compatible met PC Paint en BSA 
VE picture formaten. Er staan ook wat achtergrond- 
foto's/beelden op, die voorzien kunnen worden van 
tekst. Met onder andere de bekende plaatjes van 
space shuttles, vliegtuigen en computers. Nodig is 
een CGA, EGA of Hercules kaart. 


GR 12.0 Turbo Paint 

Dit programma is vergelijkbaar met de commercile 
tekenprogramma’s die er op de markt zijn. Nodig is 
een 256 K CGA kaart en een muis die compatible is 
met Microsoft of Mouse Systems. 


ee ni nn in nd kn nend ank meed nand dann dinner ht tandkas 
À + 


lime et ne: atc amedee lain schen ac akk der men ane id a 


GR 13.1 Molecular 
(CGA/EGA) 

Heel geschikt als educatief programma voor schei- 
kunde. Zelf via de computer (roterende) moleculen 
samenstellen. Voorbeelden zijn al aanwezig, ieder 
atoom heeft een eigen kleur. Ingebouwd periodiek 
systeem. Daarnaast nog een soortgelijk programma 
voor de EGA monitor. 


GR 16.0 PC-Draft I 


Modelling 


“_Een programma dat vergelijkbaar is met PC Paint, 


PC Paintbrush etc. Alle normale opties plus de mo- 
gelijkheid om via een speciale routine ingevoerde 
gegevens grafisch te manipuleren. De resolutie is 
240 dpi op Epson printers en 150 of 300 dpi op 
Laserjets. Vereist is CGA, 512K. Microsoft muis 
wordt aanbevolen. 


GR 26.0 Optiks 

Tekenprogramma / grafische spreadsheet. Compati- 
ble met EGA/CGAVGA en Hercules, en plusminus 
30 grafische formaten w.o. .CUT, .PIC, .PCC, PCX, 
en .MAC. Printeroutput naar de meeste bekende 
printers. Te besturen met muis en/of Keyboard. 80 
kilobyte manual op disk. Kan ook ASCIl-bestanden 
laden. 








GS 1.0 Simulations 

Zes simulatiespellen. O.a: Airtrax- beman de radar 
van een verkeerstoren, en wees een zo goed moge- 
lijke verkeersleider. Net als in het echt geen salari- 
sverhoging mogelijk! Bigrig- _Cross-country 
trucking. Niet vergeten te slapen en/of tanken. Fire- 
Blus de bosbrand. US- Een wargame. Oilwell- Boren 
naar olie, raffineren en verkopen. 


GT 2.0 Sorta Star Trek 

Een goede DRIEDIMENSIONALE versie van het klas- 
sieke spel. (CGA) Te spelen in een kubus (= 3-D) 
i.p.v. een plat vlak (= 2-D). Tevens het Startrek Trivia 
spel, gebaseerd op de bioscoopfilms, -series en nie- 
uws van fanclubs. 


GV 12.0 Adventure Solutions 
Hints en tekstbestanden met op lossingen voor vele 


adventures o.a. King's Quest, Colossal Cave en 
Questron. Betreft in totaal meer dan dertig adventu- 
res. 


HA 2.0 Jokes II 

Deze schijf bevat twee “opmerkelijke” DOS-versies 
(LOVE-DOS en RUDE-DOS) welke erg geschikt zijn 
om kennissen en/of collega's te verrassen. Naast 
deze nog een nep Macintosh-emulator en nog wat 
memory-residente monsters, letterhappertjes en me- 
er plagerijtjes. “Niet te gebruiken bij mensen met 
hartklachten. * 


HA 3.0 Indiana Jokes 


Zie beschrijving in catalogus onder HA 1.0 


HK 2.0 Wine Cellar 

Database, speciaal ontworpen voor de wijnliefhebber 
/ wijnkelder. 

Registreert op oorsprong, kleur, jaar, botteldatum, 
aankoopdatum, prijs, alcoholpercentage en com- 
mentaar. Zoek- en printroutines ingebouwd. 220 
wijnen reeds ingevoerd. Draait op vrijwel ieder mo- 
nitortype. 


HP 1.1 Health (BASIC) 

Bevat o.a. Bioritme programma, Glycemy, een pro- 
gramma wat bloedsuikerspiegels graphisch weerge- 
eft op de plotter. Verder Lifegame, een programma 
wat aan de hand van Uw leefstijl en gewoontes 
berekent wat Uw te verwachten levensduur (!) zou 
kunnen zijn. Als laatste de twee programma's SUB- 
LIM EN TPNCALG, vrij specialistisch-medische pro- 
gramma’s om proteine/elektrolyten factors te bere- 
kenen. 


HP 9.0 Astrologie (Hercules/CGA) 


Behoorlijk uitgebreid astrologieprogramma. Bere- 
kent o.a. “Radixhoroscopen volgens het Koch- of 
Placidussysteem” Verder: aspecten, transits, syna- 
strie, Weergave van de radix op het scherm en op 
de (Epson/IBM) printer Bevat een uitgebreide hand- 
leiding. Zonder (geringe) kennis van de astrologie 
niet echt aan te raden. Dan liever HP 18.0 








ne RUE WARE 


HP 10.0 Movie Database 

Bevat reeds meer dan vierduizend films met o.a. 
acteur, schrijver, oscars, regisseur, producer, jaar 
van productie. De database is zelf nog verder uit te 
breiden met andere films en gegevens. De database 
is uitgerust met 'n speciaal zoekprogramma. 


HP 12.0 Keukenhulpen 

Een receptensysteem met maaltijdplanning en bood- 
schappenlijsten. Verder is er Mealmate, dat de calo- 
riën en voedingswaarden van 800 (Amerikaanse) vo- 
edselprodukten, waaronder 21 soorten kaas, weer- 
geeft. 


HP 16.0 VCR Database 


Administratieprogramma voor videocassettes met 
o.a. cassettenummer, datum, volgorde, bandteller, 
titel, categorie, namen enz. Bevat tevens een label- 
printroutine. 


HP 18.0 Personalities 

Drie programma’s: -Het handschriftanalyseprogram- 
ma doet na 13 vragen m.b.t. een handschrift de 
persoonlijkheid van de schrijver uit de doeken. “Re- 
delijk accuraat” volgens ons proefkonijn. -Het Biorit- 
meprogramma: voor diegenen die vinden dat dit 
programma niet thuishoort op schijf HP 1.1 Het 
Numerologieprogramma: volgens een getallenleer 
rekent dit programma gegevens zoals geboortedata 
en naam om tot een uniek getal aan de hand waar- 
van diverse berekeningen m.b.t. toekomstvoorspel- 
ling, karakteranalyse, temperament enz. mogelijk 
zijn. 


HP 35.0 Oracle 

| Tjing programma, gebaseerd op de oude chinese 
techniek voor wat betreft het voorspellen van de 
toekomst of het raad geven op vragen. Naar keuze 
te werken met de munten of stokjes. De verkregen 
resultaten kunnen naar keus naar scherm of printer 
gestuurd worden. CGA/EGA/Hercules. 

Tarot. Een minstens zo bekend systeem dat met de 
kaarten werkt. De uitkomsten van dit orakel kunnen 
naar printer, scherm of disk. 

CGA/Hercules. 


IN 7.0 Aandelenbeheer 2 

Voor het in de gaten houden van de aandelenkoer- 
sen, het beoordelen van de eigen posities en het 
nemen van koop- en verkoopbeslissingen. Met ka- 


artsysteem en goede grafiekweergave. Met downlo- 


ad programma’s voor Amerikaanse databanken zo- 
als Dow Jones, die eventueel via Memocom en de 
Source ook van Nederland uit aangeroepen kunnen 
worden. CGA kaart nodig. 


HS 22 a/b/c Marine 
(3 disks) 

Een aantal utilities specifiek voor schippers en an- 
derszins varenden. O.a. berekeningen voor tijdstip 
van zonsondergang en zonsopgang, koers, afstand, 
rendez-vouz-snelheid, tijdzone- conversie, intercep- 
tiekoers. 


LB 8.0 Baker’s Dozen 


Een menugestuurd utilitysysteem met de functies: 
Mini- Spreadsheet, kalender (met feestdagen van 
diverse landen en religie's), bestanden zoeken, text- 
bestand vergelijking, screencapture, com 1 en com 
2 wisselaar, FAT uitlezer/editor, gekanteld printen 
van text. Mag zeker niet ontbreken in de Utilities-Di- 
rectory! 


Navigation 


LB 9.0 SMG Utility Set 

Verzameling van 30 (!) utilities, alle vergezeld van 
‚DOC-betanden waarin tekst en uitleg. O.a. DOS- 
Plus, Fix-Disk, Hard-Disk info ListBad (traceerd ka- 
potte clusters), Owner (traceert clusters bij files), 
ListDir, RememDir en SaveDir. Buiten deze nog me- 
er, teveel om op te noemen. Zeker aan te bevelen 
voor de actieve hard-disk gebruiker. 


| LO 1.1Lotus Worksheets 1 


Een twaalftal toepassingen voor gebruik met Lotus 
1-2-3, waaronder het toevoegen van histogrammen, 
bioritmes, aandelenbeheer, leningen, trend-analyse, 
loonadministratie (tot 12 werknemers), verhuursys- 
teem, etc. 


LO 2.1 Lotus Utilities 

Om gemakkelijker toegang tot Lotus te krijgen. Met 
drivers, communicatie, mini spreadsheet auditor en 
EMS emulatie. 


LO 3.0 Lotus Worksheets 2. 

Deze schijf bevat een conversie van Lotus formaat 
naar ASCII, een utility voor printer-control, een tem- 
plate voor gebruik met prokey en een heel goede 
tutorial voor 1-2-3 macro's. 


LO 6.0 Lotus Worksheets 3 

Een reeks uitgewerkte 1-2-3 work-sheets voor toe- 
passingen als boekhouding, kasgeldbeheer, statisti- 
sche bewerkingen, ordergrootte berekenen etc. 


‚LO 9.0 Print Graph Library Lotus. 


Dit is alleen voor de oude 1-2-3 versies (1 en 1a), 
waarmee meer printers, zoals laserprinters, HP, 
Star, IBM plotter, Canon inkjet worden toegevoegd. 


LO 10.0 Goalseeker 


Razendsnelle Lotus utility, voor het berekenen van 
cel-waarden, wanneer de eindwaarden bekend zijn. 


MA 40.0 Mandelbrot 

Fractaalgenerator. Maakt de wonderlijkste tekening- 
en op uw beeldscherm. Maakt gebruik van een co- 
processor indien aanwezig. 

Een handleiding op disk betreffende de wiskundige 
achtergronden van dit fenomeen verteld u meer. 
Werkt op Hercules/CGA/EGA/VGA. 


ML 4.1 XLISP 


De LISP interpreter voor wie echt iets wil doen met 
deze Al taal. Compleet met source code in C, dus 
helemaal aan te passen. Er zijn voldoende voorbeel- 
den toegevoegd, waaronder een interactieve Logo 
simulatie en een mini-Prolog interpreter, geschreven 
in XLISP. 


ML 11.0 PC Demo System 

Een compleet nieuw systeem voor het vervaardigen 
van demo’s van bijvoorbeeld nieuwe softwarepro- 
gramma's. Het is mogelijk om tekst op schermen te 
tonen, in een diapresentatie of interactief lespro- 
gramma. De presentatie kan door de gebruiker wor- 
den bestuurd of in een bepaalde volgorde worden 
getoond. Kleur en ANSI-graphics worden onderste- 
und. Het is in feite hetzelfde systeem als het Dan 
Bricklin Demosystem. 


ENTS CRAEN CR ENT ELEC ANR G 
krijgen is het overmaken van het betreffende bedrag (f 7,50 of 
Bfr 200 per disk/ bestelt u meer diskettes tegelijkertijd dan 
bedraagt de prijs per 5.25" diskette f 5,00/ Bfr. 150/ prijs 3.5” 


f8,50/Bfr 250/ bij meerdere disks f6,-/Bfr 175) op gironummer 
3157656 t.n.v. Infolist Amsterdam, Postbus 43048, 1009 ZA 
Amsterdam (voor België BBL310-0506025-62 t.n.v. SAC), met 
vermelding van het zendadres en de codenummers van de 
gewenste diskettes/formaat ( 5.25" of 3.5") 





ML 13.0 Prolog 


Deze Artificial Intelligence programmeertaal is niet 
gemakkelijk, maar een toekomstzekere tijdspasse- 
ring. Dit is de versie van AD en biedt een vrij uitge- 
breid en kompleet Prolog systeem. De meegeleverde 


_disk-dokumentatie is echter niet bedoeld als Prolog 


tutorial, maar om echte Prolog toepassingen te 
draaien. 


ML 14.1 CP/M Emulator 

Een 8088 CP/M nabootsing van Z80 CP/M 2.2 inkl. 
terminal VT 52 emulatie op de PC. Voor wie wel 
eens zijn PC wil gebruiken voor software uit een heel 
andere wereld. Niet alle diskdrives zijn echter ge- 
schikt voor het lezen van de PC/M formaten, slechts 
een deel kan gelezen worden via de normale 
schijfjes. 


ML 17.0/ML 18.0 Expert System 
(2 disks) 

Dit zijn twee schijven met een demonstratie pro- 
gramma voor de bouw van een expert-systeem. Het 
is een demonstratieversie want het werkt wel echt, 
alleen is het aantal “rules” dat men kan maken veel 
beperkter dan bij de complete versie. 


PA 2.1 Turbo Pascal 1 

Utilities en routines voor Turbo Pascal. Goed gedo- 
cumenteerd; bij de meeste utilities zijn voorbeelden 
opgenomen. Met o.a. picture string, datamanipula- 
tie, grafische routines. 


PA 3.3 Pascal Math 


De wiskundige trucjes van Pascal kunnen hiermee 
eenvoudiger benut worden. Werkt met de 8087 mat- 
hematische coprocessor, zowel voor Turbo als Mic- 
rosoft Pascal. Boordevol met statistische, wiskundi- 
ge en technische routines en methoden. lets voor 
technische studenten, maar ook voor de technisch 
ontwerper en ingenieur. 


PA 9.1 Pascal Tutor (leermeester) 

Pascal-instructieschijf, adequaat tot versie 4.0 van 
Borland’s Turbo Pascal. In totaal bevat deze schijf 
108 voorbeeldprogramma’s in Turbo Pascal gesch- 
reven. Onderwerpen als loops, controls, procedures, 
arrays en type komen uitgebreid aan de orde. De 
instructie bestanden (380 Kb !) zijn uitprintbaar. 








PA 11.0 Altamira 


Tekenprogramma dat helemaal met het toetsenbord 
werkt en waarmee tekeningen gemaakt kunnen wor- 
den die direkt naar de printer gaan of worden ge- 
bruikt in Turbo Pascal programma's. 


PA 16.1 Screen Engine 

Uitstekend interactief ontwerpsysteem voor het ont- 
wikkelen van data invoer, Lotus-achtig menu en 
hulpschermen voor Turbo Pascal. Met voorbeelden. 
Geschikt voor monochrome- en kleurenschermen. 
Zowel simpele als complexe boxen zijn makkelijk te 
tekenen en te veranderen terwijl u het scherm ont- 
werpt. 


RD 16a t/m RD 16d Wisdom of the 
ages 

Vier schijven gevuld met zegswijzen, uitspraken, epi- 
grammen, en wijze woorden door de eeuwen heen. 
Ze bevatten in totaal rond de 6.500 uitspraken en 
deze kunnen op onderwerp geselecteerd worden. 
Onderverdeeld in drie secties: klassiek, middeleeuws 
en modern. Deze secties zijn afzonderlijk uit te scha- 
kelen, dan wel te combineren. Harddisk noodzake- 
lijk. Hercules/CGA/EGA/VGA 


SP 5.1 / 6.1 Express Calc (2 disks) 


Een niet al te ingewikkeld Spreadsheetprogramma 
met maximaal 64 kolommen en 256 regels te ge- 
bruiken. Handig voor diegenen, die eens kennis wil- 
len maken met spreadsheets. Vergezeld van een bui- 
tengewoon uitgebreide handleiding van 190 pag.'s. 


TE 5.0 NY edit 


New York edit is een nieuwe tekst editor met tal van 
mogelijkheden. Vind- en vervang operaties, kolom- 
en blok operaties, keyboard macro's, etc. NY edit 
kan gebruikt worden met twaalf open vensters tege- 
lijk, waarbij elk venster een ander bestand bevat. 
Harde schijf is vereist. 








 _Mindware 

mm Uw computer als interactief medium om te communiceren met uw onder- 
bewustzijn. Het klinkt in eerste instantie misschien raar, maar in de V.S. 
bestaat deze software al jaren en de gebruikers worden steeds enthousi- 
aster. Uw computer luistert naar u, geeft advies en wijze raad, helpt u met 
het bedenken van allerlij nieuwe en creatieve ideeën en kan zelfs uw liefdes 
relatie analiseren. De software is alleen in voorraad op MS.Dos 5.25" 


LQ. Smarts f 99,- 


Voor het meten en het vergroten van uw |.Q. Print overzichten en rapporten 
uit en ontwikkelt trainingssessies aangepast aan uw behoeften. 


Neurobics f 139,- 
Aerobics voor de geest! Een compilatie van oefeningen en puzzles, gepre- 
senteerd in interessante graphics die uw hersenen een goede “workout 
geven”. Een zeer geliefd programma. 


The Idea Generator Plus 
Dit programma haalt de betere ideeën uit de verste hoeken van het brein. 
Geprezen in de N.Y. Times. Gratis wordt bijgeleverd het boek 'The art of 
creative thinking’; een uitgebreide verhandeling over het proces van crea- 
tief denken. 


Idea Fischer f 1495,- 
LF. versterkt de kracht van uw ideeën. Het is het meest uitgebreide pro- 
gramma in Z'n soort en wordt veel gebruikt door reclameburos, managers 
en de directies van grote bedrijven. Een uitgebreide demodisk kost f_75,-. 


Speciale aanbieding 
De PC Synergizer 


Deze hardware/software combinatie maakt van uw PC een zeer krachtige 
brainmachine die men zowel voor privé als voor professionele / therapeu- 
tische doeleinden kan gebruiken bij ontspanning, stress- en slapeloos- 
heidsbestrijding, meditatie, hypnose, concentratie- en creativiteitsverho- 


ging, etc. De set bestaat uit een insteekkaart, software, een zéér mooie 
bril met 8 LED's en een uitgebreide manual. Met de PC Synergizer kun- 
nen sessies geprogrammeerd worden van willekeurige lengte en com- 
plexiteit. Elk oor / oog kan apart gestimuleerd worden, waarbij licht- en 
geluidsfrequenties op elkaar aangepast zijn. 

Nu voor de speciale prijs van f 995,- incl. BTW (normaal f 1395,-) 


Heart to Heart 


f 595,- 








Calmpute f 349,- 
Uw computer als bio-feedback apparaat. U kunt de biologische informatie 
van uw huid lezen en interpreteren. Hiermee kunt u methoden van zelfcon- 
trole (zoals stress management en ontspanning) leren en ontwikkelen. 


Mind Mirror f 99,- 
Gedeeltelijk een stuk gereedschap gedeeltelijk filosoof op disk. De bekende 
Timothy Leary is computer evangelist geworden en zijn kennis en ervaring 
op het gebied van psychologie, bewustzijn etc vindt u op deze diskette 
terug. 


Synchronicity f 199,- 
Intuïtie is vandaag de dag erkend als belangrijk element in een groot aantal 
succes-stories. Carl Jung ontdekte het geheim van het maken van de juiste 
beslissing op basis van intuïtie. Hij noemde dit synchronicity; het principe 
van het toeval met een bedoeling. Dit programma neemt u mee op reis in 
die wereld. 


The Emotional Spreadsheet f 495,- 


Met dit programma ontdekt u een heel nieuwe benadering om uw lotsbe- 
stemming meer in eigen handen te nemen. Het laat u zien hoe ogenschijn- 
lijk niets met elkaar te maken hebbende zaken en gebeurtenissen in uw 
leven toch een zekere relatie hebben. Het quantificeert de belangrijke ge- 
beurtenissen in uw leven in een soort spreadsheet, die de steeds terugke- 
rende patronen blootlegt. 


Compatibility Prober íf 175,- 
Hiermee kunt u op wetenschappelijke wijze de compatibiliteit van twee (of 
meer) mensen meten. Maak een relatieschema van u en uw baas, uw 
relatie, compagnon etc. Een van de betere uitgaven van ‘Personality Soft- 
ware’. 


f 149,- 
Een relatie-analyse programma op het gebied van de liefde. Beide partners 
krijgen een vragenlijst (doelstellingen, sex, vrije tijd financiën etc) en via de 
database worden overeenkomsten en verschillen duidelijk. | 


PC Guru f 349,- 


Een programma waarmee u kunt converseren. Sex, schoonmoeders, rela- 
tieproblemen, woede; PC Guru staat overal voor open. Vocabulaire: 30.000 
woorden en 5.000 idiomatische expressies. 


Mentor f 149,- 
Naast oefeningen in probleem oplossen bevat Mentor routines om uw ge- 
heugen, mentale coördinatie, reactievermogen, creativiteit en perceptie te 
stimuleren / verbeteren. Mentor is ontwikkeld vanuit 2 achtergrondgedach- 
ten: 

1. Het stelt de gebruiker in staat een evaluatie te maken in prive omgeving 
zonder de kosten van een beroepsmatige onderzoeker. 
2. U kunt de tests en oefeningen herhalen wanneer u dat uitkomt. 


Best Choise 3 f 349,- 
Wie moet ik in dienst nemen? Welke auto zal ik kopen? Wat voor software 
is het beste voor deze taak? Welke opdracht zal ik het eerst uitvoeren? 
Best Choise geeft suggesties opgebouwd uit 3 elementen: keuze, criteria 
en mensen. 


Houdini f 299,- 
Ook een ideeën generator welke uit los ingevoerde stukjes informatie een 
overzichtelijk, aan elkaar te koppelen idee/informatie systeem kan brou- 
wen. Zit in dezelfde sfeer als Idea Fischer maar is aanzienlijk goedkoper. 


Wisdom of the Ages f 275,- 


Leen uw volgende punchline van de grootste geesten van onze aarde. 
1000 filosofen, dichters, denkers, wiskundigen etc geven in 81 categoriën 
hun wereldberoemde uitspraken. Zeer geschikt voor het schrijven van 
speeches, opstellen, verhalen, folders etc. 


Vraag de Catalogus aan! 
Showroom: Nwe Kerkstraat 67 Amsterdam 


Postadres: PB 75570 - 1070 AE Amsterdam 
tel.: 020 - 6203219 / 6268069 fax: 020 - 6253280 





PC ALMANAK 1991: meer dan 300 pagina's 
actuele overzichten van het marktaanbod aan 


PC's (XT’s, 386 AT’s, 486 AT's), laptops, 
printers, monitoren, scanners, modems, 
software, dealers, 
opleidingen en meer. 

PC ALMANAK 1991: alle prijzen plus 
uitgebreide technische specificaties 
overzichtelijk op een rij. 

PC ALMANAK 1991: onmisbare informatie 
voor wie wil kunnen vergelijken alvorens aan 

_te schaffen. 


De PC Almanak ligt nu in de winkel 
U kunt hem echter ook direct bestellen: 
EELS MAKEN BR (lr 45de Cek Chad Kel CLK © 
rekeningnummer 1585491 t.n.v. Sala 
Communications Amsterdam o.v.v. uw naam, 
adres en “PC Almanak”. 
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Borland Software 
De Complete Oplossing 





Borland is het enige softwarehuis, een veelzijdige range aan produkten. ongêevenaarde integratie, zodat u de 
dat werkelijk een complete reeks soft- Zoals de bekende database Paradox gegevens uit toepassingen in bijvoor- 
ware levert voor de PC. Voor werk en __ 3.5, het succesvolle spreadsheet beeld een Paradox database verbindt 
voor hobby, voor programmeur en Quattro Pro of de personal organizer met andere pakketten. Met Paradox 
voor amateur; voor elke behoefte is Sidekick. En dan kunnen we de SQL kan men zelfs de verbinding met 
een geschikt pakket van Borland. De programmeertalen zeker niet ver- grotere computers en in client-server 

\ pers is telkens weer enthousiast over geten, want zowel voor DOS als Win- applicaties tot stand brengen. 
de produkten van Borland. En de dows heeft Borland de beste produk - De filosofie van Borland draait 
gebruiker die eenmaal in aanrakingis ten: Borland C++, Turbo Pascal 6.0 om kwaliteit, voor gebruiker 
gekomen met een pakket van Borland, en Turbo Pascal voor Windows. en ontwikkelaar. Dat is het succes 
wil van geen ander merk meer weten. Bij dat alles biedt Borland software van Borland als bedrijf, en dus ook 
Dat hoeft ook niet, want Borland biedt met behulp van Paradox Engine uw succes! 


il B O RLA ND 


The makers of Paradox? Quattro® Pro, Sidekicke ObjectVision® Turbo Pascal® and Borland C++° 
Bel 020-6915709 voor informatie over Borland produkten. Borland software wordt gedistribueerd door Micro Macro en Tritech. 


| WIN een gratis Borland pakket naar keuze! PCBI 6/91 


Vraag informatie aan! Door het invullen van deze bon dingt u mee naar een gratis pakket. 
Er worden 100 inzenders getrokken die hun pakket krijgen opgestuurd. 








4 NAAM M/V FUNCTIE 
| EE __ POSTCODE 
‚ PLAATS | TEL, 

Ik ben: dealer eindgebruiker Ik gebruik: DOS ) Windows > Diskette formaat: 514" 312" 


Ik wil meer informatie ontvangen over de volgende produkten en daarmee maak ik ook kans om een gratis software pakket te winnen: 
Paradox Quattro Pro Turbo Pascal DOS’ Turbo Pascal for Windows _ BorlandC++ _ Sidekick’ ObjectVision _ 


stuur deze bon in een gefrankeerde envelop naar: BORLAND, Postbus 125, 1380 AC Weesp. 
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Windows 3.0 
wil 386SX Power 


De Comdex Spring'91 stond vooral in het 
teken van Windows 3.0. Multitasking vraagt 
echter niet om een 286 maar om een 386SX 
processor. Met Kingston's SX/NOW! kunt u 
uw 286 processor vervangen voor een 
386SX |! 


„upgrade uw processor! 








Door de combinatie van een 16 of 20 MHZ 
386SX processor en 16 Kb cache memory 
versnelt de SX/NOW! uw systeem. 


















Volledig Compatibel 





SX/NOW is volledig compatibel met de IBM 
/ 5 | PS/2 modellen 50 en 60. 
ki: rn 4d Ô E Kosten - Baten 


Dus, als u de snelheid wilt die uw software 
toekomt kunt of een nieuw systeem kopen 
of een SX/NOWI! 


Introductieprijzen!! 


u 





SX/NOW! Fl.1600 
4MB memory F1.2025 


SX/NOW! +4 MB memory 
samen: F1.3400 


prijzen zijn ex.BTW 
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